| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
tabset drag [D6, Win95/98]
bobby © (2002-11-18 16:49:00)У кого нибудь есть рабочий код для визуального перетаскивания и смены местами tab в tabset?
MBo (2002-11-18 18:26:00) [1]подобно и для 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;
bobby (2002-11-18 18:10:00) [2]Ну, у него форма у табов такая прикольная, трапеции перевернутые.
Мне очень нравится.
А что pagecontrol умеет такое перетаскивание делать?
MBo (2002-11-18 17:18:00) [3]А зачем нужен tabset, если есть PageControl?
| |
