[Решено] Вопрос по StatusBar

[IvanI]

Как по двойному клику в StatusPanel в StatusBar произвести действие? У StatusPanel нет OnDblClick

[kosteek]

Код: Выделить всё

procedure TForm1.StatusBar1DblClick(Sender: TObject);
Var
pt, T: TPoint;
x, n : Integer;
Begin
  GetCursorPos(T);
  pt := Self.ScreenToClient( T );
  x  := 0;
  for n:= 0 to statusbar1.panels.count-1 do
    begin
      x:= x + statusbar1.panels[n].Width;
      if x > pt.x then
        begin
          StatusBar1.Panels[n].Text:='click';
          break;
        end;
    end;
end;

В Uses добавить LCLintf.

[IvanI]

спасибо, то что нужно!