OnEnter 事件時清除EDIT所有的內容 |
答題得分者是:wameng
|
andy0412
一般會員 發表:22 回覆:12 積分:11 註冊:2004-03-03 發送簡訊給我 |
|
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
|
andy0412
一般會員 發表:22 回覆:12 積分:11 註冊:2004-03-03 發送簡訊給我 |
|
andy0412
一般會員 發表:22 回覆:12 積分:11 註冊:2004-03-03 發送簡訊給我 |
引言:引言: 很多種作法。請問若是Combobox裡的items要清除呢? 要如何做,試我試了都寫不出來。>_<procedure TForm1.Button1Click(Sender: TObject); var I :integer; begin For I := 0 to ComponentCount-1 do if Components[I] is TEdit then TEdit(Components[I]).Text := ''; end;一般而言,我是比較喜歡用動態建立陣列元件的使用。 |
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗
procedure TForm1.Button1Click(Sender: TObject); var I :integer; begin For I := 0 to (ComponentCount-1) do if Components[I] is TComboBox then TComboBox(Components[I]).Items.Clear; end;================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================
------
忻晟 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |