Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > TabSheet и двойной клик по закладке

Автор: MadCoder 7.6.2008, 15:14

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

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

Автор: ama_kid 7.6.2008, 15:49

Цитата(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

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