Caption von Buttons in andere Funktionen übergeben

t/f · Beiträge: 70

Hallo Board!

Ich möchte mit 10 verschiedenen Buttons eine funktion aufrufen, die die Caption der verschiedenen Buttons in ein einfaches Label schreibt.

Wie mache ich das?

Also ich stelle mir das so vor:

Ich drücke auf Button1 (dieser hat als Caption die ganze Zahl 7 als String zugewiesen). Daraufhin rufe ich also die Funktion SchreibeCaptionAufsLabel auf. Nun muss die Caption irgendwie in die Funktion hereingebracht werden. Wie geht dat?

Die funktion soll in etwa so aussehen:

markieren

Quelltext

1:
2:
3:
4:

procedure SchreibeCaptionAufsLabel(Sender: TObject);
begin
 Label1.Caption := Sender.Caption;
end;

So habs ich probiert, doch mein Compiler isn eckliger Meckerkopp.

Bin für jede Antwort dankbar

greetz
//me

Terra23 · Beiträge: 872 Win 8 Delphi 7

Warum machste nicht einfach wie folgt:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Button1Click(Sender: TObject);
begin
Label1.Caption:=Button1.Caption;
end;

Button2Click(Sender: TObject);
begin
Label2.Caption:=Button2.Caption;
end;

usw..


Grüße, Alex..

_________________
Hasta La Victoria Siempre

t/f · Beiträge: 70

du das hatte ich eigentlich auch vor, doch mittlerweile sind 379 Buttons (ja klingt utopisch, aber glaubs mir einfach

und frag nicht nach ) und ich möchte nicht wirklich alle Buttons, die eigentlich alle ein und das selbe machen einzeln durchgehen.

greetz
//me

wulfskin · Verfasst: Fr 18.04.03 19:53

Hallo t/f!

Deine Idee war richtig, es fehlt nur noch die Typumwandlung:

markieren

Quelltext

1:
2:
3:
4:

procedure SchreibeCaptionAufsLabel(Sender: TObject);
begin
  Label1.Caption := (Sender as TButton).Caption;
end;

GRuß wulfskin!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Sender ist vom Typ TObject und besitzt keine Eigenschaft Caption. Du musst es so machen:

markieren

Quelltext

1:
2:
3:
4:
5:

procedure TForm1.SchreibeCaptionAufsLabel(Sender: TObject);
begin
  if Sender is TButton then
  Label1.Caption:=TButton(Sender).Caption;
end;

MfG,
Peter

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Zu langsam ...

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

t/f · Beiträge: 70

Leute ihr seid großartig!!! :!:

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

t/f hat folgendes geschrieben:

[...]mittlerweile sind 379 Buttons (ja klingt utopisch, aber glaubs mir einfach

und frag nicht nach )

Ich frag trotzdem :-)

Warum so viele Buttons?

Gruß
Tino

t/f · Beiträge: 70

es handelt sich um ein Spiel ... eine Art Puzzel...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme