Viele gleiche Komponenten, einmal Eigenschaft für alle def.?

[shareholder]

Hallo, ich hab sehr sehr viele Buttons die
alle geimeinsame Eigenschaften besitzen sollen

bspw.:

Delphi-Quellcode:

Button1.Width := 200;
Button1.Height := 25;

Button2.Width := 200;
Button2.Height := 25;

Button3.Width := 200;
Button3.Height := 25;
...

Sie sollen ebenfals alle gemeinsame Ereignisse besitzen,
wie zum Beispiel OnClick

Wie funktioniert das ?

Wenn Ich zur Laufzeit mit

Delphi-Quellcode:

// Eigenschaften von DERButton
// ...

DERButton := TButton.Create(Self)
// ... Forschleife, um Buttons mit oben def. Eigenschaften zu erstellen

meine Buttons erstelle funzt es, aber ich möchte während
der entwicklung meine buttons positionieren.

wie ?

[Mirilin]

:hi:
mit [Shift] kannst Du mehrere Kompostenten auf einmal markieren.
und mit [Ctrl]+[C] und [Ctrl]+[V] kann man Copy&Paste machen.


mfg Tobias

[shareholder]

Ja danke, ist mir ganz entfallen aber...

Wie machen ich das mit den Ereignissen ?

Egal welcher Button geklickt wurde,
soll die Procedure Werteaus(Sender: TObject); ausgeführt werden.

wie funktioniert das ?

[Mirilin]

:hi:

Genau gleich.

Edit : Das heisst : alle Markieren, im OI bei den Erreignissen im OnClick 'Werteaus' schreiben


mfg Tobias

[shareholder]

ok danke, eine sache nur noch ! :)

procedure TForm1.WerteAus (Sender : TObject);
begin
// Die Caption des Buttons ändern, welcher geclickt wurde :
Sender.Caption := 'NEUE CAPTION';
end;

funzt so net, kannst du da evtl. bitte nochmal nachhelfen ? :thuimb:

thanx !

[sakura]

Delphi Tags nutzen :!:

Delphi-Quellcode:

procedure TForm1.WerteAus (Sender : TObject);
begin
  // Die Caption des Buttons ändern, welcher geclickt wurde :
  (Sender as TButton).Caption := 'NEUE CAPTION';
end;

...:cat:...

[Mirilin]

:hi:

Delphi-Quellcode:

procedure TForm1.WerteAus (Sender : TObject); 
begin 
  if not (Sender is TButton) then Exit;
  (Sender as TButton).Caption := 'Neue Caption';
end;

mfg Tobias

[shareholder]

danke hat funktioniert ! :thuimb: :-D