Hi zusammen,
ich möchte gerne per Drag&Drop Elemente auf einem Button (Action) in einer ActionToolbar Droppen! Wie komme ich mittels des DragOver - Events der Toolbar an der darunter befindlichen Action?
Mein bisheriger Ansatz:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| .
.
.
var
tpPos: TPoint;
ctrl: TControl;
begin
if Source is TTreeView then
begin
tpPos.X := X;
tpPos.Y := Y;
ctrl := (Sender as TActionToolbar).ControlAtPos(tpPos, false);
if ctrl.Action = actEntfernen then
begin
....
end;
end;
end; |
Aber ctrl ist immer nil!!!
Was mache ich falsch??
Gruß
Andreas
_________________
Wenn Debuggen der Vorgang ist, Fehler aus einem Programm auszubauen,
dann ist Programmieren der Vorgang, Fehler in ein Programm einzubauen !
