Senderabfrage nach Objekten

eniac · Beiträge: 75 Win 98, Win XP, SuSE Linux 9.0 D3 Prof

Tach,

Ich hab eine einfache Methode geschrieben. Ungefähr so:

Delphi-Quelltext

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

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if Sender=Button1 then begin
    //...
  end;
  if Sender=Button1 then begin
    //...
  end;
  //...
end;

Ich will allerdings auch zwischen Sendern unterschieldicher Objekte (z.B. TButton) unterscheiden und nicht nur zwischen konkrteten Komponenten (z.B. Button1, Button2 usw.). Wie geht das?
Ich erinnere mich, dass das irgendwie mit "if Sender in ..." gehen soll, aber ich habs vergessen

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.

_________________
Manche Leute haben den Horizont in Form eines Kreises mit Radius Null und das nennen sie dann einene Standpunkt.

AXMD · Verfasst: Fr 11.02.05 20:04

Hi

!

Bitte ändere deinen Titel deines Beitrags so, dass er den Richtlinien entspricht.

Richtlinien hat folgendes geschrieben:

1.2 Beiträge
Bitte formuliere den Betreff Deiner Beiträge so, dass andere Mitglieder anhand dieser bereits das eigentliche Thema festmachen können. Beiträge wie etwa "Eine Anfängerfrage" oder "Weiß jemand, wie das geht?" lassen den Leser im Unklaren darüber, was das Thema der Diskussion ist. [..]

Danke
AXMD

PS.: Zum Thema: Versuch mal Sender.InheritesFrom

eniac · Beiträge: 75 Win 98, Win XP, SuSE Linux 9.0 D3 Prof

AXMD hat folgendes geschrieben:

Bitte ändere deinen Titel deines Beitrags so, dass er den Richtlinien entspricht.

...würde ich gerne machen, wenn ich wüsste wie das geht

_________________
Manche Leute haben den Horizont in Form eines Kreises mit Radius Null und das nennen sie dann einene Standpunkt.

AXMD · Verfasst: Fr 11.02.05 20:10

Den EDIT-Button oben verwenden. Danke

AXMD

eniac · Beiträge: 75 Win 98, Win XP, SuSE Linux 9.0 D3 Prof

...ich hab selbst eine mögliche Lösung in der Delphi-Hilfe gefunden :lol:

:

Hier ein Beispiel in abgekürzter Version:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

//...
with Sender as TButton do
begin
 Caption := '&Ok';
end;
//...

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.

_________________
Manche Leute haben den Horizont in Form eines Kreises mit Radius Null und das nennen sie dann einene Standpunkt.

AXMD · Verfasst: Fr 11.02.05 20:43

Darf ich fragen, was dieser Code mit deiner ursprünglichen Fragestellung zu tun hat. TObject.InheritesFrom würde meiner Meinung nach besser passen, aber wenn du meinst...

AXMD

ossix · Hält's aus hier Beiträge: 15 win 2000 D7 Pers

wie wärs mit

markieren

Delphi-Quelltext

1:
2:

if sender is tbutton then
  blabla;

?
bzw. wo liegen die nachteile dabei?

eniac · Beiträge: 75 Win 98, Win XP, SuSE Linux 9.0 D3 Prof

@ossix: Stimmt, genau das hab' ich gesucht

Ich hab' die ganze Zeit irgendwie an

markieren

Delphi-Quelltext

1:
2:

//...
if Sender in TButton then //...

gedacht.

Nur wegen diesem einem Buchstaben (statt 'n' 's') hat das nicht gefunzt :evil:

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.

_________________
Manche Leute haben den Horizont in Form eines Kreises mit Radius Null und das nennen sie dann einene Standpunkt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme