Botschaft Application Exit

[stahli]

Ich konnte es jetzt so lösen:

Delphi-Quellcode:

procedure TTimerDummy.TimerNow(Sender: TObject);
const
  FLAGS = RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_UPDATENOW or RDW_ALLCHILDREN;
begin
  RedrawWindow(DummyForm.Handle, nil, 0, FLAGS);
  TimerDummy.Enabled := False;
end;

So kann ich mit einer kleinen Verzögerung bei Bedarf ein Neuzeichnen veranlassen.
Das funktioniert erst mal sehr gut. Mal sehen, ob sich mit der Zeit noch andere Probleme bemerkbar machen...

Danke
Stahli