VPF::перестановка TabSheet в PageControl - Форум программистов

ilya198293

Дата 5.6.2008, 07:25 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 170
Регистрация: 17.3.2007
Где: Сириус, созвездие Большого Пса

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

как можно переставлять TabSheet в PageControl, как в Opere и мазиле?
и как можно сделать чтоб Hint у TabSheet появлялся не только когда мышка находится на рабочей областью, но и над самой закладкой.

Это сообщение отредактировал(а) ilya198293 - 5.6.2008, 08:15

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

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

ama_kid

Дата 5.6.2008, 09:31 (ссылка)

(голосов:3)

Загрузка ...

АСУТП-кодер

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

Репутация: 15
Всего: 95

Цитата(ilya198293 @ 5.6.2008, 07:25

)

как можно переставлять TabSheet в PageControl, как в Opere и мазиле?

Код

procedure TForm1.PageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin
  PageControl1.BeginDrag(False);
end;

procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer); 
const
  TCM_GETITEMRECT = $130A; 
var 
  i: Integer; 
  r: TRect;
begin 
  if not (Sender is TPageControl) then Exit;
  with (Sender as TPageControl) do
  begin 
    for i := 0 to PageCount - 1 do 
    begin 
      Perform(TCM_GETITEMRECT, i, lParam(@r)); 
      if PtInRect(r, Point(X, Y)) then 
      begin 
        if i <> ActivePage.PageIndex then
          ActivePage.PageIndex := i; 
        Exit; 
      end; 
    end; 
  end;
end;

procedure TForm1.PageControl1DragOver(Sender, Source: TObject; X, 
  Y: Integer; State: TDragState; var Accept: Boolean); 
begin 
  if Sender is TPageControl then 
    Accept := True; 
end;

Цитата(ilya198293 @ 5.6.2008, 07:25

)

как можно сделать чтоб Hint у TabSheet появлялся не только когда мышка находится на рабочей областью, но и над самой закладкой.

Код

procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
 i:integer;
 CurPage:integer;
 pt:TPoint;
begin
 // Проверяем, что у всех табов выставлен ShowHint=true и Hint'ы - присвоены...
 CurPage:=-1;
 for i:=0 to PageControl1.PageCount-1 do
  if PtInRect(PageControl1.TabRect(i),Point(X,Y)) then
   begin
    CurPage := i;
    break;
   end;
 PageControl1.Hint:=PageControl1.Pages[CurPage].Hint;
 pt:=PageControl1.ClientToScreen(Point(X,Y));
 Application.ActivateHint(pt);
end;

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

самурай без меча подобен самураю с мечом, но только без меча

ilya198293

Дата 5.6.2008, 14:21 (ссылка)

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

Загрузка ...

Бывалый

Спасибо, ama_kid!!!
Первый алгоритм заработал, а второй нет. Hint выводится только над рабочей областью: это 2 и Button
а над 1 нет.

_________
|____1____|___________________________________________________________
|                                                                     |
|                     2                                               |
|                                                                     |
|                                                                     |
|                                   __________                        |
|                                  |          |                       |
|                                  |  Button  |                       |
|                                  |__________|                       |
|                                                                     |
|                                                                     |
|_____________________________________________________________________|

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

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

ama_kid

Дата 5.6.2008, 15:02 (ссылка)

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

Загрузка ...

АСУТП-кодер

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

Репутация: 15
Всего: 95

Цитата(ilya198293 @ 5.6.2008, 14:21

)

второй нет

Забыл написать, что у PageControl - тоже должен быть ShowHint=true

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

самурай без меча подобен самураю с мечом, но только без меча

ilya198293

Дата 6.6.2008, 05:39 (ссылка)

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

Загрузка ...

Бывалый

Цитата

Забыл написать, что у PageControl - тоже должен быть ShowHint=true

Над неактивными вкладками реакции ноль, а над активной "List index out of bounds (-1)".

Прошу прощения.....туплю.....вопрос снят
Спасибо большое за помощь smile

Это сообщение отредактировал(а) ilya198293 - 6.6.2008, 05:55

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

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

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