各位大大好: 我將 statusbar 劃分成二個 planles,分別是 statusbar1.panels[0] 及 statusbar.panels[1] statusbar1.panels[0].txt=:'this is a test'; statusbar2.panels[1].txt:='test'; 但却顯示不出來,請問我有設錯什麼參數嗎? 謝謝! Thomas Chiou

------
Thomas Chiou

statusbar1.panels[0].Text:='this is a test'; statusbar1.panels[1].Text:='test'; 另外statusbar1.panels[0] and statusbar1.panels[1] 的Width要夠寬喔. TRY TRY SEE 發表人 - chih 於 2003/07/03 18:41:42

是不是不小心改到 SimplePanel := True ?

你好： 還有一個地方也檢查看看吧。 statusbar1.panels[0].style = psOwnerDraw; // 自行處理 panel 的顯示方式 statusbar1.panels[0].style = psText; // 顯示 text 的內容

 
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls;    type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    StatusBar1: TStatusBar;
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation
uses Unit2;
{$R *.dfm}
Var child: TForm2;
procedure TForm1.N2Click(Sender: TObject);
begin
  child := TForm2.Create(Self);
  child.Caption:='文件' IntToStr(MDIChildCount);
  StatusBar1.Panels.Items[0].Text:='文件' IntToStr(MDIChildCount);
  StatusBar1.Panels.Items[1].Text:=ActiveMdichild.Name;
end;    end.    

分享比獲得更快樂--Juneo