Problem mit Statusbar <-> Panels[x]

[Schlingel]

Hallo,

Ich habe ein Problem mit einer Statusbar mit 4 Panels.
Beim Mouseclick auf jeweils ein Panel müsste ich erkennen, welches Panel in der Statusbar ausgewählt wurde. (Leider gibts für die Panels kein eigenes OnClick - Event).


Danke im Vorraus

[Bernhard Geyer]

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

[Sharky]

Zitat:

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;

[Schlingel]

Problem gelösst!

Danke @ Sharky

[Sharky]

Zitat:

Zitat von Schlingel

Problem gelösst! ...

Hai du "Schlingel" ;-)

wie hast Du dein "Problem" den gelösst?
So wie ich es vorgeschlagen habe oder auf einem anderen Weg?
Ich frage, um es anderen Users möglich zu machen, bei einer ähnlichen Frage die Lösung einfacher zu finden :stupid:

[Schlingel]

@ Sharky

Dein Vorschlag hat mein Problem gelösst, nochmal DANKE