請問站長 Botton1.caption 如何顯示 2 行 以上字串 |
|
答題得分者是：timhuang
|
|
water
初階會員   發表：90 回覆：89 積分：35 註冊：2003-07-07 發送簡訊給我 |
|
|
mustapha.wang
資深會員  發表：89 回覆：409 積分：274 註冊：2002-03-13 發送簡訊給我 |
|
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
只要將 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 回覆：931 積分：581 註冊：2006-10-27 發送簡訊給我 |
|
|
xiaoning79627
初階會員 發表：46 回覆：60 積分：26 註冊：2002-11-10 發送簡訊給我 |
|
|
water
初階會員 發表：90 回覆：89 積分：35 註冊：2003-07-07 發送簡訊給我 |
Dear Jasonwong :
use ALT+F12 方式 再DELPHI 5 , 行的通嗎 ??? Dear Justmade :
請教 範例中 new Tbotton 中
除了 Caption 多行功能外( Params.Style 有異動 )
其他功能 是否 跟原來 button 一模一樣
(例:屬性:Font ... Event:OnClick...) ps:私人請教.你紅字如何顯示出來的??? ---- water
------
一切無為法.如虛亦如空.如如心不動.萬法在其中 |
|
timhuang
尊榮會員 發表：78 回覆：1815 積分：1608 註冊：2002-07-15 發送簡訊給我 |
|
|
mustapha.wang
資深會員 發表：89 回覆：409 積分：274 註冊：2002-03-13 發送簡訊給我 |
|
|
water
初階會員 發表：90 回覆：89 積分：35 註冊：2003-07-07 發送簡訊給我 |
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 發送簡訊給我 |
引言: 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
------
一切無為法.如虛亦如空.如如心不動.萬法在其中 |
發表時間：2003-07-08 10:59:25
IP:61.230.xxx.xxx 未訂閱
系統時間：2024-11-26 7:46:53
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |