Zitat von
c.wuensch:
Das mit dem PostMessage habe ich leider immernoch nicht zu meiner Zufriedenheit hinbekommen. Kann mir da vielleicht jemand auf die Sprünge helfen?
Mal sehen.
Erstmal musst du dir eine Message-Konstante definieren:
Delphi-Quellcode:
const
UM_STARTMODUSCHANGE = WM_APP + 663;
Der genaue Wert der Konstanten ist egal, er sollte nur im von Microsoft angedachten Bereich (> WM_APP) und innerhalb deiner Anwendung eindeutig sein.
An geeigneter Stelle (bei dir vielleicht im OnShow) postest du deine Message:
PostMessage(Handle, UM_STARTMODUSCHANGE, 0, 0);
Schließlich musst du die Message auch wieder auffangen:
Delphi-Quellcode:
TDeineForm = class(TForm)
strict private
procedure UMStartModusChange(var Message: TMessage); message UM_STARTMODUSCHANGE;
end;
Delphi-Quellcode:
procedure TDeineForm.UMStartModusChange(var Message: TMessage);
begin
// was auch immer
end;
Das war's auch schon. Jetzt ist nur noch die Frage, ob der Teil mit "was auch immer" für deine Bedürfnisse zum richtigen Zeitpunkt kommt.
HTH, Uli.