Zitat:
OnPaint OnActivate sind ja eher ungünstig, da sie bei Neuzeichnen, Focuswechsel immer aufs neue ausgelöst werden.
das lässt sich doch abfangen
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
is_first_call := TRUE;
end;
procedute TForm1.FormPaint(Sender: TObject);
begin
if (is_first_call) then
begin
is_first_call := False;
//do what you want;
end;
end;