procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
Timer1.Tag := Timer1.Tag + 1;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 200; //有个Api现现在想不起
Timer1.Enabled := False;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
TTimer(Sender).Enabled := False;
if Timer1.Tag > 1 then
ShowMessage('双击')
else ShowMessage('单击');
Timer1.Tag := 0;
end;
begin
Timer1.Enabled := True;
Timer1.Tag := Timer1.Tag + 1;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 200; //有个Api现现在想不起
Timer1.Enabled := False;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
TTimer(Sender).Enabled := False;
if Timer1.Tag > 1 then
ShowMessage('双击')
else ShowMessage('单击');
Timer1.Tag := 0;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货