OnClick in StatusBar_Main.Panels[1].0

[FirstLine]

با سلام
چجوری میشه نسبت به کلیک کردن روی یکی از زیر مجموعه ها یا قسمتهای StatusBar یک دستور را برنامه نویسی کرد ؟
مثلا اگر روی StatusBar_Main.Panels[1] کلیک کرد یک پیغام بدهد.
با تشکر

[szabeh]

از رویداد onclick آن استفاده کن

[FirstLine]

از رویداد onclick آن استفاده کن
با سلام
در این صورت فرق نمیکنه که روی کدام Panel کلیک کرده باشد.
با تشکر

[vcldeveloper]

procedure TForm1.StatusBar1Click(Sender: TObject);
var
pt : TPoint;
begin
GetCursorPos(pt);
with Sender as TStatusBar do
begin
pt := ScreenToClient(pt);
if pt.X <= Panels[0].Width then
ShowMessage('Panel1');
end;
end;