Hallo,
ich möchte auf einem TabControl/TabItem einen TButton zu erzeugen.
Die Position des Button (Position.X/Y) soll an der Stelle des Maus-Zeigers erfolgen.
Das ganze spielt sich via Drag and Drop ab.
Egal welches TabItem aktiv ist, es kommen alle OnDragDrop- Events beim TabControl an.
Ich bekomme im TabControl.OnDragDrop- Event die Mausposition innerhalb des TabControl.
Bei der Umrechnung auf die richtige Position des TabItem scheitere ich.
Hier der Code:
Delphi-Quellcode:
procedure TForm3.MyDragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF);
var
MyTabCtrl : TTabControl;
MyTab : TTabItem;
NewPoint : TPointF;
begin
if Sender is TControl then begin
if Sender.InheritsFrom(TTabControl) then begin
MyTabCtrl := TTabControl(Sender);
MyTab := MyTabCtrl.ActiveTab;
// hier möchte ich die aktuelle Maus- Position (Point)
// auf die Position auf dem TabItem umrechnen
NewPoint := MyTabCtrl.LocalToAbsolute(Point); // funtkioniert nicht!
NewPoint := MyTabCtrl.AbsoluteToLocal(Point); // funtkioniert nicht!
NewPoint := MyTab.LocalToAbsolute(Point); // funktioniert nicht!
NewPoint := MyTab.AbsoluteToLocal(Point); // funktioniert nicht!
end;
end; // if Sender is TControl
end;
kann mir jemand weiter helfen
Danke!