Закрытие TTabSheet

← →
Schummi (2004-05-04 19:27) [0]

Мастаки! Может кто реализовывал закрытие TTabSheet по двойному клику на заголовке таба? Помогите, плиз. Наверное это нужно делать как-то через wm_xxx?

← →
Gero © (2004-05-04 20:38) [1]

Примерно так:

procedure TSomeForm.SomeTabSheetMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbLeft) and (ssDouble in Shift) then
SomeTabSheet.Tabs.Delete(SomeTabSheet.TabIndex);
end;

← →
TButton © (2004-05-05 00:25) [2]

а закрытие и удаление это одно и то же?

← →
Dimaxx © (2004-05-05 00:30) [3]

Может скрытие, а не закрытие...

← →
Schummi (2004-05-06 07:57) [4]

2Gero Спасибо!

2TButton, Dimaxx - это уже не существенно

Закрытие TTabSheet Найти похожие ветки