国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Delphi > 正文

第一次接觸Delphi

2019-11-18 18:02:28
字體:
供稿:網(wǎng)友
 

第一次上Delphi感覺還是不錯的,就是自己的英文太差了,里面的很多控件都不認識。

初次上機  自己胡亂寫了一個可以改變窗體背景色程序。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button3: TButton;
    PRocedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Caption:='紅色背景';     //窗口標題
form1.Color:=clred                     //窗體顏色改變
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Caption:='白色背景';
form1.Color:=clwhite
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
form1.Caption:='藍色背景';
form1.Color:=clblue
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
form1.Caption:='黃色背景';
form1.Color:=clyellow
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
form1.Caption:='綠色背景';
form1.Color:=clgreen
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
form1.Close
end;

end.

第一次用它編了個小代碼,心里還是挺高興的。


上一篇:偶的第二個Delphi程序

下一篇:Delphi中用ICMP探測遠程主機是否存活

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網(wǎng)友關(guān)注

主站蜘蛛池模板: 老河口市| 高邑县| 鱼台县| 武汉市| 西乡县| 舞阳县| 沂水县| 山阴县| 夏邑县| 康保县| 西林县| 琼结县| 五原县| 永定县| 隆回县| 永福县| 石首市| 兴隆县| 米易县| 绥阳县| 英德市| 崇文区| 塘沽区| 聊城市| 叙永县| 承德市| 应用必备| 铜陵市| 垫江县| 温泉县| 高州市| 文安县| 临沂市| 余干县| 金乡县| 泾源县| 岳西县| 郓城县| 花莲市| 开鲁县| 承德县|