Wann wird eine Form angezeigt ?

[mkinzler]

Weil Form.Show vor dem Anzeigen ausgeführt wird.

Und auch wenn die Form sichtbar wäre, wäre ja wenig sichtbar

[günni0]

Dein Problem kann man schön mit WMFormVisible lösen

Delphi-Quellcode:

const
 WM_FORM_VISIBLE = WM_USER + 1;

private
 FormInitialised: Boolean;
 procedure WMFormVisible(var msg: TMessage); message WM_FORM_VISIBLE;
end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
 FormInitialised := False;
end;

procedure TForm1.WMFormVisible(var msg: TMessage);
begin
 if not FormInitialised then
  begin
   FormInitialised := True;
   
   Code hier rein
  end;
end;

[H.Bothur]

Zitat von günni0:

Dein Problem kann man schön mit WMFormVisible lösen

Das bekomme ich komischerweise nicht kompiliert ... Delphi (10.1) meckert bei

"message WM_FORM_VISIBLE;"
Undeklarierter Bezeichner "WM_FORM_VISIBLE"

Gruß
Hans

[günni0]

Zitat von H.Bothur:

Zitat von günni0:

Dein Problem kann man schön mit WMFormVisible lösen

Das bekomme ich komischerweise nicht kompiliert ... Delphi (10.1) meckert bei

"message WM_FORM_VISIBLE;"
Undeklarierter Bezeichner "WM_FORM_VISIBLE"

Gruß
Hans

Irgendwo deklarieren

Delphi-Quellcode:

const
 WM_FORM_VISIBLE = WM_USER + 1;

[H.Bothur]

Zitat von günni0:

Irgendwo deklarieren

Delphi-Quellcode:

const
 WM_FORM_VISIBLE = WM_USER + 1;

Danke - da war ich gerade Blind ... ich dachte das wäre irgendeine feste Systemkonstante aus einer Unit.
Jetzt klappt es wunderbar :_)

Hans

[hoika]

Hallo,
warum nimmst Du nicht FormActivate?

Und dort als letzte Zeile
PostMessage(Handle, WM_CLOSE, 0, 0);

[Delphi.Narium]

Wenn Form1 das Hauptformular ist, kann man das Problem doch in der DPR lösen:

Man entferne dort die Zeile Application.Run; und füge statt dessen dort ein:

Delphi-Quellcode:

  Form1.Show;
  Form1.DoSomething;

Das Close in DoSomething führt dazu, dass das Programm beendet wird. Man muss es dann nicht per Selbstmord über Application.Terminate; beenden.
Eventuell vorhandene OnClose-Ereignisse werden dann auch noch korrekt verarbeitet.

[H.Bothur]

Zitat von Delphi.Narium:

Wenn Form1 das Hauptformular ist, kann man das Problem doch in der DPR lösen:

DANKE !! Das ist imho eine schöne und elegante Lösung !!

Gruß
Hans

[Bernhard Geyer]

Zitat von mkinzler:

Weil Form.Show vor dem Anzeigen ausgeführt wird.

Könnte man evtl. auch sagen das das OnShow-Event die letzte Aktion vor dem Anzeigen des Formulares ist.

[mkinzler]

Zitat von Bernhard Geyer:

Zitat von mkinzler:

Weil Form.Show vor dem Anzeigen ausgeführt wird.

Könnte man evtl. auch sagen das das OnShow-Event die letzte Aktion vor dem Anzeigen des Formulares ist.

Das wollte ich damit ausdrücken