|
ｿｽ@ｿｽｿｽbuttonｿｽﾌ抵ｿｽｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽJｿｽﾔゑｿｽｿｽﾉは？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ToshiqnZ 2002/08/16(ｿｽｿｽ) 11:58:21
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾍ、ToshiqnZｿｽﾆ申ｿｽｿｽｿｽﾜゑｿｽｿｽBDelphiｿｽnｿｽﾟて間ゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽFｿｽXｿｽﾈ掲ｿｽｿｽｿｽﾂ難ｿｽ
ｿｽﾅ趣ｿｽｿｽ竄ｵｿｽｿｽｿｽｿｽAｿｽﾇまゑｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽBｿｽﾈ会ｿｽｿｽAｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽﾈ会ｿｽｿｽﾌ様ｿｽﾈ難ｿｽeｿｽﾅ、Button1ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽJｿｽﾔゑｿｽｿｽﾉはどゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private ｿｽ骭ｾ }
i:integer;
public
{ Public ｿｽ骭ｾ }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
Edit1.Text:=IntToStr(i);
end;
ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ 2002/08/16(ｿｽｿｽ) 16:27:55
ｿｽ@ｿｽｿｽｿｽAOnMouseDownｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽOnMouseUpｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾗての擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ、
ｿｽｿｽｿｽﾆゑｿｽｿｽﾈゑｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Lupin3rd 2002/08/16(ｿｽｿｽ) 17:51:07
OnMouseDownｿｽｿｽOnMouseUpｿｽｿｽTTimerｿｽｿｽｿｽgｿｽｿｽｿｽｿｽﾌはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ToshiqnZ 2002/08/16(ｿｽｿｽ) 21:06:53
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽALupin3rdｿｽｿｽｿｽｿｽ@ｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾍプｿｽｿｽｿｽpｿｽeｿｽBｿｽﾆゑｿｽｿｽﾅ設抵ｿｽﾅゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽﾆまゑｿｽ閧ｭｿｽﾇゑｿｽｿｽCｿｽｿｽｿｽｿｽ
ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾅにはまゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽがテｿｽXｿｽgｿｽ告ゑｿｽｿｽﾜゑｿｽｿｽB
Timer1ｿｽｿｽOnTimerｿｽCｿｽxｿｽｿｽｿｽgｿｽﾍ、Button1ｿｽｿｽClickｿｽCｿｽxｿｽｿｽｿｽgｿｽﾉ具ｿｽｿｽLｿｽﾝ定しｿｽﾜゑｿｽｿｽｿｽｿｽB
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled:=False;
end;
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled:=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
Edit1.Text:=IntToStr(i);
end;
end.
