Methode beim Programmstart ausführen

[wernkrau38]

In dem beigefügten kleinen Beispiel möchte ich erreichen, daß die Methode Button1
auch schon beim Start des Programms ausgeführt wird.
Was auch ginge: bei den ButtonEvents ONClick und ONEnter eintragen. Dann wird es beim erhalten des Focus ausgeführt.

Aber gibt es nicht eine grundsätzliche Möglichkeit dafür wie in der letzten Zeile der Beep?

[theo]

Du solltest das in einem Ereignis des Formulars machen.
z.B. OnCreate, OnShow, OnActivate.

[wennerer]

Hallo wernkrau38,
ich weiß natürlich nicht was letztlich dein Ziel ist. Aber wie Theo schon schrieb bieten sich da OnCreate, OnShow, OnActivate an. Im OnCreate kann es dir halt passieren das Daten die du gerne verarbeiten möchtest noch nicht vorliegen. Die anderen Beiden können mehrmals durchlaufen werden. Da kann es dann notwendig sein die mehrmalige Ausführung deines Codes mit einem Flag zu verhindern. Kommt halt drauf an. Eventuell nützt dir mein kleines Beispiel etwas.

Viele Grüße
Bernd

[Socke]

Es gibt auch noch die Möglichkeit, ein Event einmalig beim OnShow zu durchlaufen.

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  AddHandlerFirstShow(@Button1Click);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Hallo');
end;  

[wernkrau38]

Ja, das habe ich gesucht.
Man muß sich halt von der historischen Pascal-Programmierung lösen und streng in Objekten und Ereignissen denken.
Herzlichen Dank an Euch alle!

[wennerer]

@Socke: Danke für AddHandlerFirstShow. Das kannte ich noch nicht, werde es ab jetzt aber gern benutzen.

Viele Grüße
Bernd

[m.fuchs]

Eigentlich könnte es dafür mal ein eigenes Ereignis im OI geben. OnFirstShow oder sowas. Das ist ja ein recht häufiges Problem.

[siro]

Ich habe das in meinem Button auch schon länger drin,
dafür gibt es die Eigenschaft FirstClick bei mir:

Wenn Taste down, dann wird nach Loaded OnClick aufgerufen
sofern die Eigenschaft FirstClick auf TRUE steht

Code: Alles auswählen

const DefaultFirstClick = TRUE;  

Type TSiroButton = class(TCustomControl)
  private
    FFirstClick   : Boolean;         // wenn Taste down wird nach Loaded OnClick aufgerufen     

  property FirstClick : Boolean read FFirstClick write FFirstClick   default DefaultFirstClick;

  protected
    procedure Loaded; override;

end;

procedure TSiroButton.Loaded;
begin
  inherited;
  // der erste Klick beim Starten der Anwendung wird manuell ausgelöst
  // sofern FirstClick auf TRUE steht
  if down and FirstClick and Assigned(OnClick) then OnClick(self);
end;

@Socke: AddHandlerFirstShow(@Button1Click); kannte ich auch noch nicht. Danke