全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2163
推到 Plurk!
推到 Facebook!

OnEnter 事件時清除EDIT所有的內容

答題得分者是:wameng
andy0412
一般會員


發表:22
回覆:12
積分:11
註冊:2004-03-03

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-01-24 12:28:11 IP:61.221.xxx.xxx 未訂閱
請問大大 請問我要如何將edit1.text, edit2.text.... editx.text內所有的內容清除呢? EX: if sender as xxx then . . .
wameng
版主


發表:31
回覆:1336
積分:1188
註冊:2004-09-16

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-01-24 12:42:13 IP:61.31.xxx.xxx 未訂閱
很多種作法。
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;
一般而言,我是比較喜歡用動態建立陣列元件的使用。
andy0412
一般會員


發表:22
回覆:12
積分:11
註冊:2004-03-03

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-01-24 12:53:38 IP:61.221.xxx.xxx 未訂閱
引言: 很多種作法。
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;
一般而言,我是比較喜歡用動態建立陣列元件的使用。
感謝大大 我是Delphia 6版的新成員呦! ^_^
andy0412
一般會員


發表:22
回覆:12
積分:11
註冊:2004-03-03

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-01-28 10:25:27 IP:61.221.xxx.xxx 未訂閱
引言:
引言: 很多種作法。
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;
一般而言,我是比較喜歡用動態建立陣列元件的使用。
請問若是Combobox裡的items要清除呢? 要如何做,試我試了都寫不出來。>_<
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-01-28 14:20:01 IP:202.62.xxx.xxx 未訂閱
您好﹗
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;
================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================
------
忻晟
系統時間:2024-05-17 12:42:19
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!