請問要如何製作以下型別? |
答題得分者是:Vicen
|
johnny2212
初階會員 發表:34 回覆:65 積分:39 註冊:2003-04-09 發送簡訊給我 |
|
Vicen
高階會員 發表:13 回覆:145 積分:151 註冊:2005-03-14 發送簡訊給我 |
其实可以通过CLASSNAME来判断的,很简单的哟~
procedure TForm1.ButReadClick(Sender: TObject); Var MyType : String; begin MyType := 'TButton,TEdit,TLabel'; if Pos(Sender.ClassName, MyType)>0 then //...DO It //这里的Sender也就是你写的控件对象 end;發表人 - vicen 於 2005/09/22 08:45:25 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |