08-02-2017, 12:46 PM
(آخر تعديل لهذه المشاركة: 08-02-2017, 01:51 PM بواسطة أبو معاذ.
تعديل السبب: استعمال الوسم كود
)
اليك هذا الكود
كود :
var
Form1: TForm1;
aaa: integer;
implementation
{$R *.dfm}
// الخروج من مربع النص
procedure TForm1.Edit1Exit(Sender: TObject);
begin
showmessage('end');
Timer1.Enabled:=false;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
aaa := aaa + 1 ;
// سيتم توقف عن العد 5 ثواني
// زيد أو نقص حسب الحاجة الى توقيت
if aaa = 5 then
begin
showmessage('end');
Timer1.Enabled:=false;
end;
Label1.Caption := timetostr(now);
Label2.Caption := inttostr(aaa);
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
aaa := 0;
Timer1.Enabled := true;
Label2.Caption := inttostr(aaa);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
aaa := 0;
Timer1.Enabled:=false;
end;
procedure TForm1.Edit1Enter(Sender: TObject);
begin
Timer1.Enabled:=false;
end;