tabset drag

← →
bobby (2002-11-18 16:49) [0]

У кого нибудь есть рабочий код для визуального перетаскивания и смены местами tab в tabset?

← →
MBo (2002-11-18 17:18) [1]

А зачем нужен tabset, если есть PageControl?

← →
bobby (2002-11-18 18:10) [2]

Ну, у него форма у табов такая прикольная, трапеции перевернутые.
Мне очень нравится.
А что pagecontrol умеет такое перетаскивание делать?

← →
MBo (2002-11-18 18:26) [3]

подобно и для pagecontrol

tabfrom:integer;

procedure TForm1.TabSet1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var i:integer;
begin
if button<>mbleft then exit;
i:=tabset1.ItemAtPos(point(x,y));
if i>=0 then begin
tabfrom:=i;
tabset1.begindrag(false);
end;
end;

procedure TForm1.TabSet1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
var i:integer;
begin
i:=tabset1.ItemAtPos(point(x,y));
Accept:=(Source=Sender) and (i>=0) and (i<>tabfrom);
end;

procedure TForm1.TabSet1DragDrop(Sender, Source: TObject; X, Y: Integer);
var i:integer;
begin
i:=tabset1.ItemAtPos(point(x,y));
tabset1.Tabs.Move(tabfrom,i);
tabset1.tabindex:=i;
end;

tabset drag Найти похожие ветки