Einzelnen Beitrag anzeigen

Frickler

Registriert seit: 6. Mär 2007
Ort: Osnabrück
274 Beiträge
 
Delphi XE6 Enterprise
 
#17

AW: Serververbindung nach FormCreate

  Alt 31. Jul 2020, 13:21
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;
  Mit Zitat antworten Zitat