Komponenten initialisieren

[Uwe Raabe]

Mit folgendem Ansatz kann man ziemlich sicher sein, daß das Form sichtbar ist und der Init-Code nur einmal aufgerufen wird.

Delphi-Quellcode:

const
  WM_INITIALIZE = WM_USER + 1;

type
  TForm177 = class(TForm)
    procedure FormCreate(Sender: TObject);
  protected
    procedure WMInitialize(var Message: TMessage); message WM_INITIALIZE;
  public
  end;

...

procedure TForm177.FormCreate(Sender: TObject);
begin
  ...
  PostMessage(Handle, WM_INITIALIZE, 0, 0)
  ...
end;

procedure TForm177.WMInitialize(var Message: TMessage);
begin
  inherited;
  { hier Initialisierungscode }
end;

[himitsu]

"ziemlich":

Es kommt fast auf's Selbe raus, wie mit einem Timer ... pfuscht jemand mit Application.ProcessMessages rum, war's das.
(und glaub mir, das kommt häufiger vor, als man denkt ... EurekaLog, DevExpress usw.)

[Sir Rufo]

@uwe Manchmal frage ich mich warum solche Dinge in der VCL nicht von Haus aus drin sind. An zuviel Code kann es nicht liegen, wohl eher daran, dass dort einigen Entwickler in der Schule Singen und Klatschen wichtiger war

[Uwe Raabe]

Zitat von Sir Rufo:

@uwe Manchmal frage ich mich warum solche Dinge in der VCL nicht von Haus aus drin sind. An zuviel Code kann es nicht liegen, wohl eher daran, dass dort einigen Entwickler in der Schule Singen und Klatschen wichtiger war

Gut möglich

[himitsu]

Die Frage ist eher, warum sich nich alle Komponenten ordentlich initialisieren, dann wären Umwege nicht nötig.