سلام بر مهندس عزیز
ببین این نمونه کد کارت رو راه میندازه.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
edtName: TEdit;
lblResult: TLabel;
Timer1: TTimer;
procedure edtNameChange(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
StartChange : TDateTime;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses DateUtils;
{$R *.dfm}
procedure TForm1.edtNameChange(Sender: TObject);
begin
StartChange := Now;
if Timer1.Enabled = False then
Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
interval :integer;
begin
interval := MilliSecondsBetween(Now,StartChange);
if interval > 300 then
begin
lblResult.Caption := edtName.Text;
Timer1.Enabled := False;
end;
end;
end.