Нашел такие свойства у Application
|
1 2 3 4 5 6 7 8 9 10 11 |
procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text:=''; edit1.Text:=DateTimeTostr(application.LastKeyPress); end; procedure TForm1.Button2Click(Sender: TObject); begin edit1.Text:=''; edit1.Text:=DateTimeTostr(application.LastUserActive); end; |