Hallöchen,

auf folgendes Problem bin ich gestoßen:
Ich habe ein bisschen mit der Variable sender rumgespielt und mir ist aufgefallen, dass sich die Variable beim Debuggen nicht beobachten lässt(Siehe Anhang). Mache ich etwas falsch oder geht das einfach nicht. Wenn es nicht geht würde mich aus Interesse interessieren wieso nicht.

Benutzt wird XE7 und folgenden Code habe ich benutzt:

markieren

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
begin
if sender = btn1 then
  pnl1.caption := 'erster sender erkannt'
end;

Grüße

Andzie

Das Argument Sender ist vom Typ TObject und der Debugger zeigt alle Informationen zu diesem Typ TObject an ... und da gibt es einfach nichts.

Hallöle...

In den überwachten Ausdrücken kannst du den Sender (TObject) auf den zu erwartenden Typ casten und somit sehen. Nur mit Maus drüber wird das nix...

Zitat von haentschman:

Hallöle...

ok, ok dann eben MAHLZEIT und kein Hallöle

Zitat von haentschman:

In den überwachten Ausdrücken kannst du den Sender (TObject) auf den zu erwartenden Typ casten und somit sehen. Nur mit Maus drüber wird das nix...

Ich habe es zu den überwachten Ausdrücken hinzugefügt. Einen Typ hatte ich aber nicht angegeben. Werde es später mal ausprobieren!

Zitat von Sir Rufo:

Das Argument Sender ist vom Typ TObject und der Debugger zeigt alle Informationen zu diesem Typ TObject an ... und da gibt es einfach nichts.

Naja ich hätte eventuell erwartet, die Adresse des aufrufenden Buttons zu erhalten. Zumindest denke ich, dass if sender = btn1 then diesen Vergleich durchführt.

Muss dazu sagen, dass ich erst seitdem ich beruflich mit Programmieren zu tun habe, mich intensiver mit den Grundlagen beschäftige. Davor war ich eher das typische Scriptkiddy.

Moin...

Zitat:

Zumindest denke ich, dass if sender = btn1 then diesen Vergleich durchführt.

eher doch (Bsp.):
if TButton(Sender).Name = 'btn1'

Zitat von haentschman:

Moin...

Zitat:

Zumindest denke ich, dass if sender = btn1 then diesen Vergleich durchführt.

eher doch (Bsp.):
if TButton(Sender).Name = 'btn1'

Njain.

Will man nun die korrekte Refernz vergleichen, oder ob es den selben gleichen Namen besitzt?

Zitat von himitsu:

Zitat von haentschman:

Moin...

Zitat:

Zumindest denke ich, dass if sender = btn1 then diesen Vergleich durchführt.

eher doch (Bsp.):
if TButton(Sender).Name = 'btn1'

Njain.

Will man nun die korrekte Refernz vergleichen, oder ob es den selben gleichen Namen besitzt?

Vor allem, weil damit sogar ein TEdit mit dem Namen btn1 durchgelassen würde

markieren

Delphi-Quellcode:

if Sender = btn1
then

ist vergleichbar mit

markieren

Delphi-Quellcode:

if (Sender is TButton) // ah ein Button
and (TButton(Sender).Owner = Self) // diese Form ist der Owner
and (TButton(Sender).Name = 'btn1' ) // der Name passt auch
then // dann wird es wohl btn1 sein
  Assert( Sender = btn1 );

und auch nur deswegen, weil der Owner dafür sorgt, dass der Name der Unter-Komponenten eindeutig ist.

Zitat:

Vor allem, weil damit sogar ein TEdit mit dem Namen btn1 durchgelassen würde

boah eh... Die Wahrscheinlichkeit ist im TForm1.btn1Click wohl eher gering. Das ist doch nur ein Beispiel. Müßt ihr immer alles bis ins kleinste Detail zerpflücken? Am Anfang ging es um die Sichtbarkeit des Senders...

Zitat:

Die Wahrscheinlichkeit ist im TForm1.btn1Click wohl eher gering.

Man kann diese Eventmethode auch anderen Komponenten zuweisen.
Es ist aber auch möglich eine Editkomponente btn1 zu nennen.
if Sender = btn1 überprüft auf die Instanz und nicht den Typ

Hi zusammen

Zitat:

Man kann diese Eventmethode auch anderen Komponenten zuweisen.

Sicher, kann man. Man kann sie auch von (fast) überall aufrufen. Die Frage ist eigentlich eher: wann wird der Sender befüllt? Wenn der User mit der Komponente interagiert, indem er darauf clickt? Oder wenn die Onclickmethode ausgeführt wird? Im 2. Fall müsste der Sender mit dem Sender des Aufrufers belegt werden. Ist dieser eine andere Prozedur oder Funktion, hat er keinen Sender-Parameter. Das heisst für mich: Der Sender übergibt eine Referenz auf das TObject, das angeklickt, hochgeklappt oder was auch immer wurde.
if Sender = btn1 Ich glaube nicht, das das wirklich funktionieren kann. Der Sender ist erstmal ein TObject und btn1 kann weiss was sein: der Ausdruck ist also immer false. Was auch heisst: So kann man Fehler einbauen, ohne es zu bemerken. Zumindest solange, bis einem klar wird, dass das ohne Cast nicht geht.
Sollte ich daneben liegen, lasse ich mich gerne eines besseren brlehren. Ansonsten würde ich nur noch sagen: wer sein TEdit Btn1 nennt, it echt selber schuld...

Gruss
Delbor