TForm的ActiveControl沒有Color屬性? |
|
答題得分者是：pedro
|
|
sprewell
一般會員   發表：13 回覆：21 積分：6 註冊：2003-11-10 發送簡訊給我 |
各位大大:
我想在進出某一TControl時,動態改變TControl的顏色於是寫了下面程式 procedure TCounterFrm.ChangeBg(State: Boolean; Obj: TObject);
begin
if State then begin
with Obj as TControl do begin
Color := clGradientActiveCaption;
end;
end
else begin
with Obj as TWinControl do begin
Color := clWindow;
end;
end;
end; procedure TCounterFrm.CustTelEnter(Sender: TObject);
begin
ChangeBg(true, CustTel);
end; procedure TCounterFrm.CustTelExit(Sender: TObject);
begin
ChangeBg(false, CustTel);
end; 結果改到的都是FORM的顏色, 而TForm的ActiveControl沒有Color屬性可以設定!
TControl的Color屬性是protected,因此ActiveControl取不到..>< 可以幫我解答一下嗎?? Delphi....我真的是摸不透你阿!!
|
|
pedro
尊榮會員  發表：152 回覆：1187 積分：892 註冊：2002-06-12 發送簡訊給我 |
差別在TControl和TEdit, 使用TControl不行,使用TEdit行
procedure TForm1.ChangeBg(State: Boolean; Obj: TObject);
var
//objctl:TControl;
objctl:TEdit;
begin
if State then begin
if Obj is TEdit then
begin
objctl:=Obj as TEdit;
with objctl do
Color:= clGradientActiveCaption;
end;
end
else begin
if Obj is TEdit then
begin
objctl:=Obj as TEdit;
with objctl do
Color := clWindow;
end;
end;
end;
|
|
sprewell
一般會員 發表：13 回覆：21 積分：6 註冊：2003-11-10 發送簡訊給我 |
|
|
pedro
尊榮會員 發表：152 回覆：1187 積分：892 註冊：2002-06-12 發送簡訊給我 |
自定一個類別公開Color屬性,強迫轉型
表單上置放TMemo,TEdit,TRichEdit等, OnEnter及OnExit都指向下面兩個
TMyControl=class(TControl)
public
property Color;
end; procedure TForm1.ChangeBg(State: Boolean; Obj: TObject);
var
objctl:TWinControl;
begin
if State then
begin
if obj is TControl then
TMyControl(obj).Color:=clGradientActiveCaption;
end
else begin
if obj is TControl then
TMyControl(obj).Color:=clWindow;
end;
end; procedure TForm1.OnControlExit(Sender: TObject);
begin
ChangeBg(True,Sender);
end; procedure TForm1.OnControlEnter(Sender: TObject);
begin
ChangeBg(false,Sender);
end;
|
|
sprewell
一般會員 發表：13 回覆：21 積分：6 註冊：2003-11-10 發送簡訊給我 |
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
發表時間：2004-04-13 14:28:26
IP:61.222.xxx.xxx 未訂閱
系統時間：2024-04-26 20:11:44
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |