"is exact" Operator?

**Patrick**

Hallo,

Ich habe eine Komponente gebastelt, die draggen kann.

Delphi-Quellcode:

			procedure TTrigButton.DragOver(Source: TObject; X, Y: Integer;

  State: TDragState; var Accept: Boolean);

begin

  inherited DragOver(Source, X, Y, State, Accept);

  Accept := ((Source is TTrigButton)and(Source<>(self as TObject)));

end;

Dann habe ich eine weitere Komponente (TSyncTrigButton) davon abgeleitet. Nun habe ich das Problem, dass der TrigButton Drags vom SyncTrigButton akzeptiert. Stimmt ja auch, der SyncTrigButton ist auch ein TrigButton. Das darf aber nicht sein. Der TrigButton darf nur Drags vom genau selben Typ entgegennehmen. Wie kann ich das umsetzen?

**DeddyH**

Auf die Schnelle fällt mir ein, den Classname von Source abzufragen.

**Hawkeye219**

Hallo,

Zitat von DeddyH:

Auf die Schnelle fällt mir ein, den Classname von Source abzufragen.

...oder

TObject.ClassType.

Gruß Hawkeye

**Patrick**

Super, Danke für die schnelle Antwort! Läuft!

Frage: Was soll "Self as TObject" bewirken? Du vergleichst Adressen, somit ist es doch egal was an der Adresse steht (grob gesagt).

"is exact" Operator?

"is exact" Operator?

Re: "is exact" Operator?

Re: "is exact" Operator?

Re: "is exact" Operator?

Re: "is exact" Operator?

Forumregeln

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.624 Beiträge Delphi 12 Athens	#2 Re: "is exact" Operator? 29. Aug 2008, 09:54 Auf die Schnelle fällt mir ein, den Classname von Source abzufragen. Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

Hawkeye219 Registriert seit: 18. Feb 2006 Ort: Stolberg 2.227 Beiträge Delphi 2010 Professional	#3 Re: "is exact" Operator? 29. Aug 2008, 10:08 Hallo, Zitat von DeddyH: Auf die Schnelle fällt mir ein, den Classname von Source abzufragen. ...oder TObject.ClassType. Gruß Hawkeye
	Zitat

Patrick Registriert seit: 15. Sep 2003 184 Beiträge Delphi 2010 Professional	#4 Re: "is exact" Operator? 29. Aug 2008, 10:36 Super, Danke für die schnelle Antwort! Läuft! Genieße jede Minute deines Lebens, denn sie wird nicht wieder kommen.
	Zitat

Roachford (Gast) n/a Beiträge	#5 Re: "is exact" Operator? 29. Aug 2008, 11:09 Frage: Was soll "Self as TObject" bewirken? Du vergleichst Adressen, somit ist es doch egal was an der Adresse steht (grob gesagt).
	Zitat