Click auf Taskbarbutton löst onDeactivate onActivate aus

[itblumi]

Man kann dies auch ohne eine extra Variable umsetzen und ist dann auch etwas kürzer.

Delphi-Quellcode:

procedure TForm7.ApplicationEvents1Activate(Sender: TObject);
begin
  if (not Windows.IsIconic(Application.Handle)) then
    Memo1.Lines.add('Activate: '+TimeToStr(Time));
end;

procedure TForm7.ApplicationEvents1Deactivate(Sender: TObject);
begin
  Memo1.Lines.add('Deactivate: '+TimeToStr(Time));
end;

procedure TForm7.ApplicationEvents1Restore(Sender: TObject);
begin
  if (Assigned(Application.OnActivate)) then
    Application.OnActivate(Application);
end;