"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:

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!

[Roachford]

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