Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
Delphi 10.1 Berlin Starter
|
Re: Delphi Form Showing Problem
4. Dez 2007, 18:18
Hier ein Vorschlag:
Delphi-Quellcode:
//Original-dpr:
program testProject5;
uses
Forms,
testUnit5a in ' testUnit5a.pas' {frmMain},
testUnit5b in ' testUnit5b.pas' {LoginForm};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TLoginForm, LoginForm);
Application.Run;
end.
//Geändert:
program testProject5;
uses
Forms,
testUnit5a in ' testUnit5a.pas' {frmMain},
testUnit5b in ' testUnit5b.pas' {LoginForm};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TLoginForm, LoginForm);
LoginForm.ShowModal;
if not frmMain.LoginOK then Application.Terminate;
Application.Run;
end.
Im Anhang das ganze als Project mit zwei Forms.
Gruß
Karl-Heinz Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
|
|
Zitat
|