AW: Serververbindung nach FormCreate
Hallo,
procedure TForm2.FormOnActivate; begin OnActivate:= nil; Damit wird das OnActivate nur einmal aufgerufen ;) |
AW: Serververbindung nach FormCreate
Delphi-Quellcode:
Damit kann das Ereignis so oft feuern, wie es will, Verbinde wird nur einmal ausgeführt.
procedure TDingensForm.OnActivate(Sender: TObject);
begin if not Verbunden then begin Verbinde; Verbunden := true; end; end; |
AW: Serververbindung nach FormCreate
Delphi-Quellcode:
zum testen habe ich das erstmal so geschrieben. Allerdings kann ich in den Textfelder die ganze Zeit schreiben. Heißt die procedure wird nicht ausgeführt. Aber warum?
procedure TForm1.FormOnActivate;
begin LEdtMA.ReadOnly := true; LEdtAS.ReadOnly := true; end; |
AW: Serververbindung nach FormCreate
Öffne mal Notepad auf deinem Rechner und schiebe es über dein Programmfenster, wenn du es wieder wegziehst, sollte OnActivate gefeuert werden.
On Activate wird möglicherweise gefeuert bevor deine Editfelder erzeugt wurden... Grüße Mikhal |
AW: Serververbindung nach FormCreate
Funktioniert jetzt. Vielen Dank an alle!
Gruß |
AW: Serververbindung nach FormCreate
Doch, das OnActivate eignet sich schon. Ich mache das in meinen Anwendungen auch. Wichtig ist nur ein entsprechendes Flag zu setzen welches nach dem ersten Aufruf gesetzt wird, damit es zukünftig nicht mehr aufgerufen wird.
Pseudocode
Delphi-Quellcode:
Procedure Form1.OnCreate
Begin FAppStart := True; // Variable in Form1 End; Procedure Form1.OnActivate Begin If FAppStart then begin // Hier Initialisierungen etc. ausführen FAppStart := False; End; End; |
AW: Serververbindung nach FormCreate
Ich nutze für sowas auch gerne ein eigenes Event, welches per PostMessage im OnShow aufgerufen wird:
Delphi-Quellcode:
const
WM_AFTERSHOW = WM_USER + 50; type TMainForm = class(TForm) [...] procedure WMAfterShow(var Msg: TMessage); message WM_AFTERSHOW; [...] end; procedure TMainForm.FormShow(Sender: TObject); begin [...] PostMessage(Handle, WM_AFTERSHOW, 0, 0); end; procedure TMainForm.WMAfterShow(var Msg: TMessage); begin MachWasImmerGetanWerdenMuss; end; |
AW: Serververbindung nach FormCreate
Zitat:
Delphi sagt: Zitat:
|
AW: Serververbindung nach FormCreate
Ich bin mir gerade unsicher, ob das zur Anforderung passt:
Als ich noch Datenbank-Programme schrieb, hatte ich immer ein Datenmodul im Programm, welches alle Datenzugriffs-Komponenten enthielt, und öffnete die Verbindung in dessen OnCreate Event. Dieses wurde dann als erstes "Formular" im Programm erzeugt, noch vor dem Hauptformular. Dadurch stand die Verbindung, bereits, wenn das Hauptformular erzeugt wurde. Das ist aber schon bestimmt 10 Jahre her, keine Ahnung, ob das noch "State of the Art" ist. |
AW: Serververbindung nach FormCreate
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:16 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