Unit & Form |
尚未結案
|
spencerkuo
一般會員 發表:21 回覆:34 積分:11 註冊:2003-08-15 發送簡訊給我 |
各位大大,
請問,我create一個units 來儲存我寫的procedure & function
但是要用什麼方法來讓這我create出來的units控制呼叫procedure&fuction的From呢??
例如,我動態的create button, 而我有個fuction 是找動態create button的第一個及最後一個button 的 name & caption
那我該如何用unit 裡的 procedure & function 來找我畫面上的元件,進而做些控制或查詢元件名稱
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
spencerkuo
一般會員 發表:21 回覆:34 積分:11 註冊:2003-08-15 發送簡訊給我 |
|
ko
資深會員 發表:28 回覆:785 積分:444 註冊:2002-08-14 發送簡訊給我 |
spencerkuo 你好:
procedure TFrm_Main.myclick(sender: tobject);
var
LB:tlabel;
i:integer;
begin
for i:=0 to Panelk.ControlCount-1 do begin
if Panelk.Controls[i] is tlabel then begin
LB:=tlabel(Panelk.controls[i]);
LB.Color:=coloroff;
end;
end;
LB:=tlabel(sender);
LB.Color:=coloron;
end;
------
====================== 昏睡~ 不昏睡~ 不由昏睡~ |
spencerkuo
一般會員 發表:21 回覆:34 積分:11 註冊:2003-08-15 發送簡訊給我 |
引言: spencerkuo 你好: procedure TFrm_Main.myclick(sender: tobject); var LB:tlabel; i:integer; begin for i:=0 to Panelk.ControlCount-1 do begin if Panelk.Controls[i] is tlabel then begin LB:=tlabel(Panelk.controls[i]); LB.Color:=coloroff; end; end; LB:=tlabel(sender); LB.Color:=coloron; end;謝謝您的指導,但是這也是在form裡面做的,我現在是要做function & procedure 的libery, 這個是獨立在unit裡面的, 而所有的form只要use這個unit, 就可以使用裡面的function & procedure |
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |