如何共用一段類似功能的程式碼 |
|
答題得分者是：hahalin
|
|
小蚊子
中階會員   發表：55 回覆：267 積分：94 註冊：2002-06-08 發送簡訊給我 |
請問 前輩;
我於畫面上有 12 個 DBEdit的欄位
每一個欄位的數據,都要判斷是否大於某一數值,
然後顯示不同的顏色,我現在是寫在 OnChange 中
,但是要寫 12 個 OnChange 事件 我的問題是,是否可以只寫一個事件
大家都共用,來達到我的需求 謝謝您的回答. 部分程式碼如下: ................. procedure TFORM.Dbedit01_Change(Sender: TObject);
begin
Dbedit01.font.Color := clBlack;
if strtoint(Dbedit01.Text) > 2000 then
Dbedit01.font.Color := clRed;
end; procedure TFORM.Dbedit02_Change(Sender: TObject);
begin
Dbedit02.font.Color := clBlack;
if strtoint(Dbedit02.Text) > 1500 then
Dbedit02.font.Color := clBlue;
end; .......
procedure TFORM.Dbedit11_Change(Sender: TObject);
......
end;
procedure TFORM.Dbedit12_Change(Sender: TObject);
......
end;
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
// 設定好 DBEdit01.Tag 為 1, DBEdit02.Tag 為 2 ...
// 再將 DBEdit01 的 OnChange 內容改一下
procedure TFORM.Dbedit01_Change(Sender: TObject);
begin
TDBEdit(Sender).Font.Color := clBlack;
if strtoint(TDBEdit(Sender).Text) > 2000 then
begin
case TDBEdit(Sender).Tag of
1: TDBEdit(Sender).Font.Color := clRed;
2: TDBEdit(Sender).Font.Color := clBlue;
// ...
end;
end;
end; // 然後就在 FormCreate 時
begin
DBEdit02OnChange := Dbedit01_Change;
DBEdit03OnChange := Dbedit01_Change;
DBEdit04OnChange := Dbedit01_Change;
//...
DBEdit11OnChange := Dbedit01_Change;
DBEdit12OnChange := Dbedit01_Change;
end;
或者在 design time 時，點選 DBEdit02,
叫出 object inspector 的 Event 頁
將 OnChange 事件指向 Dbedit01_Change
其它 DBEdit03, DBEdit04 .. 等皆如法炮製即可 發表人 - hagar 於 2004/11/23 09:11:37
|
|
orson
中階會員 發表：5 回覆：135 積分：58 註冊：2002-07-11 發送簡訊給我 |
引言:
小改一下
procedure TFORM.Dbedit01_Change(Sender: TObject);
var
dbeLocal : TDBEdit;
begin
if Sender is TDBEdit then
begin
dbeLocal := TDBEdit(Sender);
dbeLocal.Font.Color := clBlack;
if strtointdef(dbeLocal.Text, -1) > 2000 then
begin
case dbeLocal.Tag of
1: dbeLocal.Font.Color := clRed;
2: dbeLocal.Font.Color := clBlue;
// ...
end;
end;
end;
end;
Orson
|
|
hahalin
版主  發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
IF column.field.AsInteger > 2 then begin
DBGrid1.canvas.font.Color:=clRed;
dbgrid1.DefaultDrawcolumncell(rect,datacol,column,state);
end;
IF column.field.AsInteger > 5 then begin
DBGrid1.canvas.font.Color:=clblue;
dbgrid1.DefaultDrawcolumncell(rect,datacol,column,state);
end; end;
|
發表時間：2004-11-23 08:10:42
IP:211.78.xxx.xxx 未訂閱
系統時間：2024-07-02 13:52:25
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |