AW: Application.Terminate geht nicht mehr ?
Zitat:
|
AW: Application.Terminate geht nicht mehr ?
Das ist ein anderer Punkt und das ist klar, das geht wohl jedem in der Praxis immer wieder so.
|
AW: Application.Terminate geht nicht mehr ?
Zitat:
|
AW: Application.Terminate geht nicht mehr ?
Zitat:
http://www.swissdelphicenter.ch/de/showcode.php?id=420 MfG pHL |
AW: Application.Terminate geht nicht mehr ?
Das sieht normalerweise so ca. aus:
Delphi-Quellcode:
Natürlich ist das so trivial zu knacken, sprich man müsste das Ergebnis in InitSuccess noch ein wenig verschleiern, mehrfach prüfen, usw., aber als Beispiel reicht das ja.
program Foo;
uses Vcl.Forms, Vcl.Controls, ...; {$R *.res} var LoginForm: TfrmLogin; InitSuccess: Boolean; App: TApplication; begin App := Application; App.Initialize; App.MainFormOnTaskbar := True; LoginForm := TfrmLogin.Create(nil); try InitSuccess := IsPositiveResult(LoginForm.ShowModal); finally LoginForm.Free; end; if InitSuccess then begin App.CreateForm(TfrmMain, frmMain); App.Run; end; end. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:05 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz