Einzelnen Beitrag anzeigen

Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.343 Beiträge
 
Delphi 11 Alexandria
 
#9

AW: TTabControl - Drag and Drop?

  Alt 14. Mär 2012, 00:57
Falls jemand nochmal so etwas sucht, ich habe mich jetzt hieran orientiert: http://www.delphigroups.info/2/5b/310157.html

Den DragMode habe ich auf dmManual und dafür:
Delphi-Quellcode:
procedure TFormPlan.MyTabControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  (Sender as TTabControl).BeginDrag(False, 3);
end;
Ein dynamisches Verschieben (sofort während dem ziehen) habe ich nicht zufriedenstellend hin bekommen.

Das ist so noch nicht perfekt, aber auf jeden Fall ausreichend funktionsfähig.
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)

Geändert von stahli (14. Mär 2012 um 01:01 Uhr)
  Mit Zitat antworten Zitat