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

請問DBEdit的位置問題(靠左/靠右/居中)。

尚未結案
t0288542
中階會員


發表:216
回覆:254
積分:94
註冊:2004-10-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-08-08 13:41:40 IP:61.221.xxx.xxx 未訂閱
請問各位。 因為DBEdit無algment屬性。我去查論壇內資料, 有會員提供說可設定tfield的。 可是我不曉得去那裡設。 謝謝。
wyndog
資深會員


發表:7
回覆:362
積分:348
註冊:2004-10-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-08-08 14:45:08 IP:60.248.xxx.xxx 未訂閱
DataSource1.DataSet.FieldByName('欄位名稱').Alignment :=
  taRightJustify;
taLeftJustify 向左靠 taRightJustify 向右靠 taCenter 居中
t0288542
中階會員


發表:216
回覆:254
積分:94
註冊:2004-10-06

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-08-09 10:32:00 IP:61.221.xxx.xxx 未訂閱
Hi reptile: 請問該欄位長度在資料庫所存放有長度50,實際值佔10位置, 所以會有多餘的空白,Delphi是否可以像您所提供方式去空白呢。 因為目前的欄位數多達400多個欄位。 如利用SQL文作去空白,需要每個欄位作去空白動作。 謝謝您。
wyndog
資深會員


發表:7
回覆:362
積分:348
註冊:2004-10-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-08-09 11:00:45 IP:60.248.xxx.xxx 未訂閱
引言: 請問該欄位長度在資料庫所存放有長度50,實際值佔10位置, 所以會有多餘的空白,Delphi是否可以像您所提供方式去空白呢。 因為目前的欄位數多達400多個欄位。 如利用SQL文作去空白,需要每個欄位作去空白動作。
如果實際值佔 10 個位置 使用的時候就是 10 個位置 並不會幫你加上多餘的空白 預防萬一的話,可以在 BeforePost 的地方 先用 Trim() 把各欄位的空白拿掉 而前篇的對齊辦法 前提當然是 DBEdit 的欄寬大於資料內容實際值才有辦法 如果後面會有多餘的空白,對齊的結果自然出不來
wameng
版主


發表:31
回覆:1336
積分:1188
註冊:2004-09-16

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-08-09 21:29:03 IP:219.86.xxx.xxx 未訂閱
另一種方式透過 CreateParams
procedure TDBEdit.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  case Alignment of
    taLeftJustify  :Params.Style:=Params.Style or ES_LEFT;
    taRightJustify :Params.Style:=Params.Style or ES_RIGHT;
    taCenter       :Params.Style:=Params.Style or ES_CENTER;
  end;
end;
~~~~~~~~~~~ 難得聰明,常常糊塗。 ~~~~~~~~~~~
系統時間:2024-06-18 21:49:28
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!