全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1885
推到 Plurk!
推到 Facebook!

請問站長 Botton1.caption 如何顯示 2 行 以上字串

答題得分者是:timhuang
water
初階會員


發表:90
回覆:89
積分:35
註冊:2003-07-07

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-07-08 10:59:25 IP:61.230.xxx.xxx 未訂閱
有時再排 Form 時.有此困腦.不知何解???
------
一切無為法.如虛亦如空.如如心不動.萬法在其中
mustapha.wang
資深會員


發表:88
回覆:407
積分:274
註冊:2002-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-07-10 10:57:18 IP:218.1.xxx.xxx 未訂閱
引言: 有時再排 Form 時.有此困腦.不知何解???
好像不行的,即使加上#13#10也不行: Button1.Caption:='ww'+#13#10+'eg'; 因为DrawText里加了DT_SINGLELINE 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听
Justmade
版主


發表:94
回覆:1934
積分:2020
註冊:2003-03-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-07-10 11:13:05 IP:218.16.xxx.xxx 未訂閱
只要將 WordWrap 設做 True 則你便可給多行的 Caption 了 :
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption:='Line1'#13#10'Line2';
end;
剛 Delphi 7 試過可行。 Delphi 5 的話沒有 WordWrap 可用小弟新發表這篇的範例來解決 : 簡單承繼元件的另類方法 (不用 Register 不用 Runtime Create) http://delphi.ktop.com.tw/topic.php?TOPIC_ID=33755 發表人 - Justmade 於 2003/07/10 12:44:21
Jasonwong
版主


發表:49
回覆:918
積分:558
註冊:2006-10-27

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-07-10 11:25:27 IP:61.70.xxx.xxx 未訂閱
你只要按 ALT F12 切換到 DFM 的文字編輯畫面 找到你要更改的BUTTON的CAPTION 改成這樣 'AAAA' #10#13 'BBBB' 再按 ALT F12 切換回原來的畫面 這樣就可以了 -- 聰明的人,喜歡猜心;雖然每次都猜對了,卻失去了自己的心 傻氣的人,喜歡給心;雖然每次都被笑了,卻得到了別人的心
------
http://www.cobbler.tw

聰明的人,喜歡猜心;雖然每次都猜對了,卻失去了自己的心
傻氣的人,喜歡給心;雖然每次都被笑了,卻得到了別人的心
xiaoning79627
初階會員


發表:46
回覆:60
積分:26
註冊:2002-11-10

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-07-10 12:41:40 IP:218.16.xxx.xxx 未訂閱
引言: 你只要按 ALT F12 切換到 DFM 的文字編輯畫面 找到你要更改的BUTTON的CAPTION 改成這樣 'AAAA' #10#13 'BBBB' 再按 ALT F12 切換回原來的畫面 ================================================= 這樣可以嗎?我在DELPHI5中試了,不行阿。 -- 聰明的人,喜歡猜心;雖然每次都猜對了,卻失去了自己的心 傻氣的人,喜歡給心;雖然每次都被笑了,卻得到了別人的心
water
初階會員


發表:90
回覆:89
積分:35
註冊:2003-07-07

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-07-10 13:38:47 IP:61.230.xxx.xxx 未訂閱
Dear Jasonwong :   use ALT+F12 方式 再DELPHI 5 , 行的通嗎 ???    Dear Justmade :   請教 範例中 new Tbotton 中    除了 Caption 多行功能外( Params.Style 有異動 )   其他功能 是否 跟原來 button 一模一樣   (例:屬性:Font ... Event:'Tahoma'>
------
一切無為法.如虛亦如空.如如心不動.萬法在其中
timhuang
尊榮會員


發表:78
回覆:1815
積分:1603
註冊:2002-07-15

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-07-10 13:55:59 IP:203.95.xxx.xxx 未訂閱
Hi, water, 請使用這個方式:    
procedure SetMultiLineButton(abuttion: TButton);
var
  ah: THandle;
begin
  ah := abuttion.Handle;
  SetWindowLong(ah, GWL_STYLE, GetWindowLong(ah, GWL_STYLE) OR BS_MULTILINE);
end;
如此一來, 該 button 就可以換行了!!
mustapha.wang
資深會員


發表:88
回覆:407
積分:274
註冊:2002-03-13

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-07-10 14:00:57 IP:218.1.xxx.xxx 未訂閱
引言: 只要將 WordWrap 設做 True 則你便可給多行的 Caption 了 :
还没注意到Delphi7有加WordWrap属性,确实可以,又长见识。 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听
water
初階會員


發表:90
回覆:89
積分:35
註冊:2003-07-07

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-07-10 16:39:51 IP:61.230.xxx.xxx 未訂閱
daer timhuang :  以下是程式碼 , 不知何處有誤 ???    unit Unit1;    // Form *1 + button *1  test fail    interface    uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls;    type   TForm1 = class(TForm)     Button1: TButton;     procedure FormActivate(Sender: TObject);      private     { Private declarations }   public     { Public declarations }   end;    var   Form1: TForm1;   procedure SetMultiLineButton(abuttion: TButton); implementation    {$R *.DFM}  procedure SetMultiLineButton(abuttion: TButton); var   ah: THandle; begin   ah := abuttion.Handle;   SetWindowLong(ah, GWL_STYLE, GetWindowLong(ah, GWL_STYLE) OR BS_MULTILINE); end;    procedure TForm1.FormActivate(Sender: TObject); begin     Button1.Caption := 'aaa #10#13 bbb' ;     SetMultiLineButton( Button1 ); end;    end.
------
一切無為法.如虛亦如空.如如心不動.萬法在其中
water
初階會員


發表:90
回覆:89
積分:35
註冊:2003-07-07

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-07-10 16:57:17 IP:61.230.xxx.xxx 未訂閱
引言: Hi, water, 請使用這個方式:
procedure SetMultiLineButton(abuttion: TButton);
var
  ah: THandle;
begin
  ah := abuttion.Handle;
  SetWindowLong(ah, GWL_STYLE, GetWindowLong(ah, GWL_STYLE) OR BS_MULTILINE);
end;
如此一來, 該 button 就可以換行了!! --------------------------------------------------- procedure TForm1.FormActivate(Sender: TObject); begin SetMultiLineButton( Button1 ); Button1.Caption := 'aaa' #13#10 'bbb' ; // show 2 行 end; i try it ok , thk u lot
------
一切無為法.如虛亦如空.如如心不動.萬法在其中
系統時間:2017-10-23 3:03:33
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!