Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.09;
Скачать: CL | DM;

Вниз

TPageControl and Icon on TTabSheet Click   Найти похожие ветки 

 
kblc ©   (2005-09-16 03:44) [0]

Уважаемые местера,
 у меня есть TPageControl с TImageList. У меня возник вопрос:
   как мне определить, что в TPageControl кликнули именно на иконку TabSheet"a?


 
Defunct ©   (2005-09-16 06:12) [1]

procedure TForm1.PageControl1MouseDown(Sender: TObject;
 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
 i : integer;
 R : TRect;
begin
 with TPageControl( Sender ) do
 begin
    for i := 0 to PageCount - 1 do
       begin
          R := TabRect( i );
          if (X > R.Left) and (X <= R.Right) and
             (Y > R.Top ) and (Y <= R.Bottom) then
              ShowMessage( "нажали на зголовок " + Pages[i].Caption );
       end
 end
end;


 
Defunct ©   (2005-09-16 06:14) [2]

> именно на иконку TabSheet"a?

провести аналогию с [1] сможешь?


 
kblc ©   (2005-09-16 09:33) [3]

Большое спасибо - всё работает отлично (!)



Страницы: 1 вся ветка

Текущий архив: 2005.10.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.039 c
14-1126875550
Ezh
2005-09-16 16:59
2005.10.09
111


14-1126755274
КаПиБаРа
2005-09-15 07:34
2005.10.09
Ажиотаж вокруг ФК Терек


10-1105600193
Vlash
2005-01-13 10:09
2005.10.09
Вывод окна приложения-сервера на передний план


14-1127148006
Джо
2005-09-19 20:40
2005.10.09
Ну что мы все о плохом?


2-1125055920
KyRo
2005-08-26 15:32
2005.10.09
Как отслеживать первую запись ?