Button Cation abfragen

[KSebi]

Hi,

ich kann zwar C++, aber unsere Schule will uns in Informatik Delphi näher bringen.
In Delphi bin ich allerdings noch ziemlich am Anfang, auch wenn ich mich schonma vor längerer Zeit mit Pascal beschäftigt habe.

Mein Problem:

Ich habe in Form2 mehrere Buttons.
Im OnClick Event ruft der Button, also alle eine Funktion auf (writeLable).

Wie man sich vielleicht schon denken kann, soll die Funktion etwas in Label1 schreiben und zwar
die Caption des gedrückten Buttons.

Um genau zu sein, weiß ich einfach nicht, wie ich erfragen kann, welcher Button gedrückt wurde um somit seine Caption auszulesen.

(Also ich würde das gern umgehen, mit case oder so jede Möglichkeit abzufragen - ich denke mal, dass ihr da doch ne bessere Lösung habt)

Vielen Dank schonma.

THX

[Die Muhkuh]

Delphi-Quellcode:

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

// Aufruf:
procedure TForm1.Button1Click(Sender: TObject); // kommt ja von Delphi her
begin
  WriteLabel(Self);
end;

[KSebi]

Vielen Dank

Jetzt geht alles wie ichs will ^^

[idontwantaname]

um die grundlagnen zu lernen, kann ich das hier empfehlen:
http://www.dsdt.info/grundlagen/

[KSebi]

Vielen Dank für den Link!

Find ich sehr hilfreich.

Vielen Dank

[SirThornberry]

Zitat:

Zitat von Spider

Delphi-Quellcode:

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

// Aufruf:
procedure TForm1.Button1Click(Sender: TObject); // kommt ja von Delphi her
begin
  WriteLabel(Self);
end;

Sollte das nicht "WriteLabel(Sender)" heißen?

[tigerman33]

Und die Prozedur WriteLabel würde ich zu einer Methode des Forms machen. Ist meiner Meinung nach ein bisschen unschön, "von außen" die Arbeit des Forms zu übernehmen.

[KSebi]

vielen dank für eure antworten ^^

hat ja alles gut funktioniert :D