Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c