Steuerelemente zusammenfassen

Ruditschka · Beiträge: 66

Moin!

Ich bin auf der Suche nach einer Möglichkeit, Buttons zusammenzufassen, ähnlich einer Radiogroup (also quasi eine Buttongroup).

Ich habe eine Form, auf der ca. 50 Buttons sind. Diese Senden Befehle an eine andere Anwendung. Der Befehl ist jedesmal die Caption des Buttons. Anstatt jetzt 50 OnClick-Prozeduren mit dem selben Inhalt schreiben zu müssen, suche ich eine Möglichkeit, eine Prozedur zu schreiben und dort einfach die Caption des angeclickten Buttons auszulesen und zu versenden.

Wer weiß Rat?

Gruß
Christoph

Tweafis · Beiträge: 647 WinXP + fbsd Delphi 5 Prof

Mach nen neuen Notify-Event in der Privatabteilung:

markieren

Delphi-Quelltext

1:
2:

    { Private-Deklarationen }
    SendButtonCaption(Sender: TObject);

Dann stellst du bei allen Buttons bei Onclick ein:

SendButtonCaption (entweder per Buttonx.OnClick :=, oder gleich im Objektinspektor)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.SendButtonCaption(Sender: TObject);
begin
  {
    Hier dein Quellcode, die Caption bekommst du per

    (Sender as TButton).Caption;
  }
end;

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.

Ruditschka · Beiträge: 66

Es klappt!

Allerdings musste ích die Prozedur nicht in der Privatabteilung sondern darüber (keine Ahnung wie die Abteilung heißt) deklarieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

type
  TForm1 = class(TForm)
    ...
    procedure btn_2Click(Sender: TObject);
    procedure ZiffernClick(Sender: TObject);   // TNotifyEvent
  private
    { Private-Deklarationen }
...

Besten Dank für die Hilfe.

Gruß
Christoph

Tweafis · Beiträge: 647 WinXP + fbsd Delphi 5 Prof

Hmm eigentlich ist das der für die von Delphi aus erstellten komponenten belegte platz...

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme