StatusBar中panel的text顯示問題 |
尚未結案
|
oktony
中階會員 ![]() ![]() ![]() 發表:67 回覆:132 積分:64 註冊:2004-12-05 發送簡訊給我 |
|
李國維
高階會員 ![]() ![]() ![]() ![]() 發表:42 回覆:287 積分:235 註冊:2003-02-07 發送簡訊給我 |
|
deity
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
|
oktony
中階會員 ![]() ![]() ![]() 發表:67 回覆:132 積分:64 註冊:2004-12-05 發送簡訊給我 |
|
deity
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
引言: 謝謝兩位,但是不能用啊,我現在是form1是MDIForm,StatusBar在form1,form2是MDIChild,控制語句在form2,難道MDIChild不能控制MDIForm的StatusBar的顯示嗎?simplepanel已經是false了 發表人 - oktony 於 2005/01/13 10:47:51小弟试了是可行 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) StatusBar1: TStatusBar; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} end. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses Unit1; {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin form1.StatusBar1.Panels[0].Text:='try'; end; end. *.dpr文件: program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.Run; end. 其中属性设置如下: form1.FormStyle:=fsMDIForm; Form2.FormStyle:=fsMDIChild; Form1.StatusBar1.SimplePanel:=false;小弟试了没问题,您可以重新拉二个Form来试试,或直接用new-->other-->projects-->MDI application系统自身创建好的MDI,然后按自己的需求进行修改; 您的有错误提示么?可否p代码上来,或放上代码求助区 ~~~静心养德~~~ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |