Hallo,
bei meiner Anwendung möchte ich, dass sie, wenn sie mit einem Parameter gestartet wird, nur ein bestimmtes Form (eine Eingabemaske) anzeigt, nach schließen der Eingabemaske soll auch das Programm enden. Hintergrund ist, das manche unserer User nicht mit den ganzen Aspekten des Programms verwirrt werden sollen.
Mein Ansatz unten funktioniert soweit, scheint auch die Anwendung wieder zu beenden, aber im Taskmanager sehe ich, dass der Prozess des Programmes noch läuft und muss ihn da killen.
Bei meinem Ansatz stimmt also was nicht, vllt. ist er auch völlig falsch? Wie mach ich es besser?
Delphi-Quellcode:
procedure TMain.FormCreate(Sender: TObject);
begin
if UpperCase(paramstr(1)) = UpperCase('EINGABE')then
begin
self.Visible:=false;
acMeldedaten_EingabeExecute(nil);
self.Visible:=true;
end;
end;
procedure TMain.FormShow(Sender: TObject);
begin
if UpperCase(ParamStr(1)) = 'EINGABE' then acBeendenExecute(nil);
end;
procedure TMain.acMeldedaten_EingabeExecute(Sender: TObject);
var
m:TEingabe; //Das Form mit der Eingabemaske
begin
m:=Teingabe.Create(self);
m.Showmodal;
m.Free;
end;
P.S.: Der Titel stimmt nicht so 100% aber ich wußte nicht, wie ich es sonst nennen sollte?