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?