So nun hab ich mal ne Frage, ob das richtig ist, was ich hier gemacht habe...
Ich will in Abhängigkeit von den Übergabeparametern eine anderes Formular als das Hauptformular Anzeigen lassen und hab das jetzt so gelöst.
Delphi-Quellcode:
//dpr
Application.Initialize;
Application.CreateForm(THauptform, Hauptform);
if (AnsiStrLiComp(PChar(ParamStr(1)),'
open',4)=0)
then
Application.ShowMainForm := false;
//Hauptformular nicht anzeigen
PostMessage(Hauptform.Handle, $0433, 0, 0);
//Benutzerdefinierte Message an Hauptformular senden
Application.Run;
//Hauptform
procedure THauptform.WndProc(
var Msg: TMessage);
begin
case Msg.Msg
of
$0433:
begin //soll auf jeden Fall nach Application.Run laufen
NebenForm:= TNebenForm.Create(Self);
NebenForm.NachFormCreate(Self);
NebenForm.ShowModal;
end;
end;
inherited;
end;
Gibt es da noch eine einfachere Lösung? Gibt es eine Procedure, die auf jeden Fall nach Application.run ausgeführt wird?
Gruß
BBB