VPF::TabSheet и двойной клик по закладке

MadCoder

Дата 7.6.2008, 15:14 (ссылка)

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

Загрузка ...

Опытный

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

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

Здравствуйте!

Подскажите, как мне закрыть вкладку TabSheet по двойному клика по ее заголовку в PageControl (например, как в Опере).

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

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

ama_kid

Дата 7.6.2008, 15:49 (ссылка)

(голосов:3)

Загрузка ...

АСУТП-кодер

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

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

Цитата(MadCoder @ 7.6.2008, 15:14

)

как мне закрыть вкладку TabSheet по двойному клика по ее заголовку в PageControl

Код

procedure TForm1.PageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 if ssDouble in Shift then
  if (Sender is TPageControl) then
  (Sender as TPageControl).Pages[(Sender as TPageControl).ActivePageIndex].Free;
end;

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

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

MadCoder

Дата 9.6.2008, 17:43 (ссылка)

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

Загрузка ...

Опытный

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

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

Большое человеческое спасибо! Все работает!

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

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

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