VPF::Перетаскивание вкладок TTabSet - Форум программистов

Delphist

Дата 24.4.2007, 14:54 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Помогите реализовать перетаскивание вкладок TTabSet между собой т.е. была вкладка 3-ья по счету, а с помощью мыши я бы мог переместить её на первое место, вообщем сделать как в Delphi или в MyIE или Opere

Это сообщение отредактировал(а) Delphist - 24.4.2007, 14:55

--------------------

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

Yanis

Дата 24.4.2007, 20:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Код

var
  bDown: Boolean = False;
  nItem: Integer = -1;

{ … }

procedure TForm1.TabSet1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  nItem := TabSet1.ItemAtPos(Point(x, y));
  if nItem >= 0 then
    bDown := True;
end;

procedure TForm1.TabSet1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  n: Integer;
begin
  with TabSet1 do
    if (nItem >= 0) and bDown then
      begin
        n := ItemAtPos(Point(x, y));
        if n >=0 then
          begin
            Tabs.Exchange(nItem, n);
            TabIndex := n;
            nItem := n;
          end;
      end;
end;

procedure TForm1.TabSet1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  bDown := False;
end;

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »