各位大大, 請問,我create一個units 來儲存我寫的procedure & function 但是要用什麼方法來讓這我create出來的units控制呼叫procedure&fuction的From呢?? 例如,我動態的create button, 而我有個fuction 是找動態create button的第一個及最後一個button 的 name & caption 那我該如何用unit 裡的 procedure & function 來找我畫面上的元件,進而做些控制或查詢元件名稱

Why not pass the form as parameter to the function?

引言: Why not pass the form as parameter to the function?

對不起,小弟我比較笨,因為以前沒有寫過這樣的東西,所以可否給個sample 例如 procedure abc(cde:T???); 在這裡是要給 TForm媽??

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 你好: 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

FYI, pass the form as a parameter:

procedure Test(Form: TForm);
begin
    ShowMessage(IntToStr(Form.ComponentCount));
end;
{...}
procedure TForm1.Button1Click(Sender: TObject);
begin
    Test(self);
end;