Создать на Tabsheet-е кнопку закрыть

[Молоток]

Уважаемые специалисты. Вам представляю такую ситуацию:
Динамически создаю Tabsheet-ы (вкладка). На каждую вкладку вставляется рисунок из Imeg-а (рисунок - красный квадрат с белым крестиком)

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
AText: string;
APoint: TPoint;
i: integer;
begin

with (Control as TPageControl).Canvas do
begin
AText:= TPageControl(Control).Pages[TabIndex].Caption;
APoint.x := 9+(Rect.Left - Rect.Right) div 2 + TextWidth(AText) div 2;
APoint.y := (Rect.Bottom - Rect.Top) div 2 - TextHeight(AText) div 2;
i:= TPageControl(Control).Pages[TabIndex].ImageIndex;
if TabIndex = (Control as TPageControl).TabIndex
then
begin
Font.Color:= clBlue; Font.Style:= [fsBold];
end
else
begin
Font.Color:= clWindowText; Font.Style:= [];
end;

TextRect(Rect, Rect.Left + APoint.x, Rect.Top + APoint.y, AText);
ImageList1.Draw(TPageControl(Contro l).Canvas, Rect.Right + APoint.x - 17, Rect.Top + APoint.y, i);
end;

end;

Вопрос: Каким образом осуществить нажатие этого рисунка, чтоб закрывалась вкладка? Уверен, что есть среди Вас кто этим сталкивался.

[Аватар]

При клике по закладке определяй где указатель мыши и, если он в той области где картинка - удаляй закладку

UPD
Гораздо проще на Tabsheet создавать Button для удаления закладки. В Button.OnClick сделать активным другой Tabsheet и передать форме сообщение, в обработчике которого и удалить Tabsheet

[Молоток]

Аватар, Ваш первый совет мне больше понравился, но не знаю каким образом определить местонахождения мышки. Если Вас незатруднит, напишите код нахождения курсора использую мною отправленный код, буду признателен.

[Молоток]

Люди, откликнитесь! Срочно нужно выполнить эту функцию

[eduard93]

ScreenToClient и перехват WM_LBUTTONUP не работает?

[Молоток]

никогда не работал с такими функциями, если не трудно, напишите пример.

[eduard93]

Когда встает задача изменения поведения стандартных контролов, без WinAPI не обойтись. http://www.delphikingdom.com/asp/vie...talogid=169#06

[Молоток]

чесно, там ничего не понял.

[eduard93]

В таком случае вам разве что в разделе Фриланс смогут помочь.