這次是介紹一些範例 提供給各位大大們參考使用
希望能對大家有一些幫助^^

因為程式都很小 所以就都放在一起了
再加上小弟也很懶得一直發文 呵呵
所以就都放在一起了
請各位大大慢用!!
每個程式均有附件
---------------------------------------------第一個是跑馬燈效果---------------------------------------------
附件名稱 trn.zip
類似跑馬燈效果 能夠重複循環的那一種的 元件
由於並不困難 所以就不多加以說明
另外畫面單調也就不提供圖片
僅提供原始檔及執行檔~

以下是程式碼

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
var v:integer;
{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
button1.left := button1.left + v * 10;
if (button1.left < 0) or (button1.left > 280) then
v := v * -1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
v := 1;
end;

end.


-------------------------------------------------------------------------------------------------------------------------------

---------------------------------------------函數的範例及overloading-------------------------------------------------
附件名稱: func.zip
area.zip

第一個範例

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
function f1(var a, b: integer): integer;
procedure f2(a, b: integer; var c: integer);

imp ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容