Hallo,
ich beschäftige mich zur Zeit mit der Umstellung einer
VCL-Anwendung auf Firemonkey. In dieser Anwendung wird der Windows-Nachrichtendienst genutzt.
Code:
const
WM_AUTORUN = WM_USER + 1007;
...
type
...
procedure WMAutoRun(var Msg: TMessage); message WM_AUTORUN;
...
private
procedure StartUp;
...
end;
...
procedure TF_F1.FormCreate(Sender: TObject);
begin
PostMessage(
Handle, WM_AUTORUN, 0, 0);
end;
procedure TF_F1.WMAutoRun(var Msg: TMessage);
begin
Application.ProcessMessages;
StartUp;
end;
procedure TF_F1.StartUp;
begin
// Programmablauf
end;
...
Wie ich schon festgestellt habe, geht das beim Firemonkey so nicht mehr. Eine Suche im Netz hat mich leider auch nicht weiter gebracht. Ich habe Beispiele bzw. Fragen anderer Nutzer gefunden, wie
http://stackoverflow.com/questions/2...ssage-handling
http://stackoverflow.com/questions/2...on-in-the-tray
komme damit aber nicht wirklich weiter.
Wie bekomme ich das beim Firemonkey gelöst, daß beim Programmstart die Nachricht versendet und StartUp ausgeführt wird?