請教各位前輩 StatusBar如何在Click事件中知道按了那一個StatusPanel?? procedure TForm1.StatusBar1Click(Sender: TObject); begin ///如何得知按了一個StatusPanel end; 謝謝各位前輩

看看合不合用吧

procedure TForm1.StatusBar1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i, iCount: Integer;
  sFocusText: String;
begin
  iCount:= 0;
  sFocusText:= '';
  for i:=0 to StatusBar1.Panels.Count-1 do
  begin
    iCount:= iCount   StatusBar1.Panels[i].Width;
    if iCount > X then
    begin
      sFocusText:= StatusBar1.Panels[i].Text;
      Break;
    end;
  end;      if sFocusText= '' then
    sFocusText:= StatusBar1.Panels[StatusBar1.Panels.Count-1].Text;      ShowMessage(sFocusText);
end;