| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TPageControl and Icon on TTabSheet Click [Win95/98, WinME, Win2k, WinXP]

kblc ©   (2005-09-16 03:44:00) 

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

---

kblc   (2005-09-16 09:33:00) [1]

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

---

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

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

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

---

Defunct   (2005-09-16 06:12:00) [3]

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;

---

Наверх