Zitat von
shidap:
Delphi-Quellcode:
procedure Tfrmsaselogin.FormCreate(Sender: TObject);
StartMainRptScreen(Application, SaseAdoConn, strUserId, strAccessLevel);
If Assigned(frmsaselogin) then
frmsaselogin.Free;
Du darfst in FormCreate nicht das eigene Formular freigeben!!
(wenn es doch nötig ist, kann man die Methode Release verwenden)
Du darfst ausserdem nicht in einer Methode auf eine Objektvariable der eigenen Klasse zugreifen.
Du kannst aber ein Klassenfunktion schreiben, um ein Formular modal anzuzeigen:
Delphi-Quellcode:
Tfrmsaselogin = class(TForm)
public
class function ShowLoginDialog:integer;
end;
class function Tfrmsaselogin.ShowLoginDialog:integer;
var
f : Tfrmsaselogin;
begin
f := Tfrmsaselogin.Create(nil);
try
result := f.ShowModal;
StartMainRptScreen(Application, SaseAdoConn, strUserId, strAccessLevel);
finally
f.Free;
end;
end;
Zum Beenden einer Anwendung benutzt man:
Application.Terminate;