線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1368
推到 Plurk!
推到 Facebook!

關於DELPHI 碼轉換BCB碼

答題得分者是:Zard
terence_lee
初階會員


發表:62
回覆:82
積分:28
註冊:2004-07-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-10-27 09:22:22 IP:211.74.xxx.xxx 未訂閱
各位先進大家好:      在看了http://delphi.ktop.com.tw/topic.php?topic_id=58468      ([Delphi]【問題】Edit 欄位內,如何將文字向右邊靠齊?)     的文章後,小弟也想將EDIT 的文字靠右對齊,但是不知如何將該段程式碼轉為 BCB碼?煩請大大們幫幫忙,謝謝!    以下引用該篇文章部分程式碼內容 procedure TForm1.FormCreate(Sender: TObject); var AStyle:Longint; begin AStyle:=GetWindowLong(Edit1.Handle,GWL_STYLE); AStyle:=AStyle and (Not ES_LEFT); AStyle:=AStyle or ES_RIGHT; SetWindowLong(Edit1.Handle,GWL_STYLE,AStyle); end;
Zard
尊榮會員


發表:24
回覆:396
積分:539
註冊:2003-11-26

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-10-27 10:53:13 IP:210.243.xxx.xxx 未訂閱
引言: 各位先進大家好: 在看了http://delphi.ktop.com.tw/topic.php?topic_id=58468 ([Delphi]【問題】Edit 欄位內,如何將文字向右邊靠齊?) 的文章後,小弟也想將EDIT 的文字靠右對齊,但是不知如何將該段程式碼轉為 BCB碼?煩請大大們幫幫忙,謝謝! 以下引用該篇文章部分程式碼內容 procedure TForm1.FormCreate(Sender: TObject); var AStyle:Longint; begin AStyle:=GetWindowLong(Edit1.Handle,GWL_STYLE); AStyle:=AStyle and (Not ES_LEFT); AStyle:=AStyle or ES_RIGHT; SetWindowLong(Edit1.Handle,GWL_STYLE,AStyle); end;
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  LONG AStyle;
  AStyle = GetWindowLong(Edit1->Handle, GWL_STYLE);
  AStyle = (AStyle) & (~ES_LEFT);
  AStyle = AStyle | ES_RIGHT;
  SetWindowLong(Edit1->Handle, GWL_STYLE, AStyle);
}
terence_lee
初階會員


發表:62
回覆:82
積分:28
註冊:2004-07-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-10-27 11:20:51 IP:61.221.xxx.xxx 未訂閱
Zard大大你好:              小弟試了一下,compile 沒有錯誤,可是edit文字還是從左方出現說?再次謝謝你的即時回覆    以下是我設計的畫面
andychang1690
資深會員


發表:20
回覆:694
積分:442
註冊:2003-03-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-10-27 11:33:08 IP:221.169.xxx.xxx 未訂閱
terence_lee:沒問題啊!不知你用的BCB版本是?我使用BCB6可以! 另外依你的畫面你是要處理計算器應該使用 ES_RIGHT -->> ES_NUMBER (數字輸入自然靠右) Zard大的作法於BCB6沒問題! 如果你用BCB5試試下面: SetWindowLong(Edit1->Handle, GWL_STYLE, ES_NUMBER ); 請在FormCreate(TObject *Sender)宣告。 請參考! Andy Chang 發表人 - andychang1690 於 2004/10/27 11:37:39 發表人 - andychang1690 於 2004/10/27 11:48:25
------
Andy Chang
Zard
尊榮會員


發表:24
回覆:396
積分:539
註冊:2003-11-26

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-10-27 11:45:01 IP:210.243.xxx.xxx 未訂閱
其實我剛才試也是不行的, 我用的是D5和BCB5都不行, 如果你的情形和我一樣, 請你回去http://delphi.ktop.com.tw/topic.php?topic_id=58468參考william 大的作法.
Zard
尊榮會員


發表:24
回覆:396
積分:539
註冊:2003-11-26

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-10-27 11:49:53 IP:211.23.xxx.xxx 未訂閱
其實我剛才試也是不行的, 我用的是D5和BCB5都不行, 如果你的情形和我一樣, 請你回去http://delphi.ktop.com.tw/topic.php?topic_id=58468參考william 大的作法.
Zard
尊榮會員


發表:24
回覆:396
積分:539
註冊:2003-11-26

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-10-27 12:54:31 IP:210.243.xxx.xxx 未訂閱
引言: Zard大大你好: 小弟試了一下,compile 沒有錯誤,可是edit文字還是從左方出現說?再次謝謝你的即時回覆
terence_lee您好, 我剛才試了一下, 這個方法只有在WinXP才可正常運作, 在Win2000下是沒有用的, 所以若你的程式要支援多平台, 請使用william 大的作法.
terence_lee
初階會員


發表:62
回覆:82
積分:28
註冊:2004-07-15

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-10-27 14:15:47 IP:61.221.xxx.xxx 未訂閱
謝謝Zard 熱心的回應,感激不盡^_^
系統時間:2024-11-23 2:12:01
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!