Problem mit Statusbar <-> Panels[x]

[Sharky]

Zitat von Bernhard Geyer:

Mußt halt über die aktuelle Mausposition und die breiten der Panels gehen.

Im Prinzip so oder ähnlich:

Delphi-Quellcode:

procedure TForm1.StatusBar1Click(Sender: TObject);
var
  maus: TPoint;
  ndx: integer;
  rechts: integer;
begin
  GetCursorPos(maus);
  maus := StatusBar1.ScreenToClient(maus);
  rechts := 0;
  for ndx := 0 to Pred(StatusBar1.Panels.Count) do
  begin
    rechts := rechts + StatusBar1.panels[ndx].Width;
    if rechts > maus.x then
    begin
      ShowMessage(Format('Panel %d', [ndx]));
      break;
    end;
  end;
end;