Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Patrick,
29. Aug 2008
Super, Danke für die schnelle Antwort! Läuft!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Patrick,
29. Aug 2008
Hallo,
Ich habe eine Komponente gebastelt, die draggen kann.
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...