寫一個common procedure 的問題

發文回覆瀏覽次數：868

推到 Plurk!

推到 Facebook!

答題得分者是：a6475

SuperLowB
初階會員

發表：96
回覆：77
積分：34
註冊：2003-06-11

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-12-31 11:19:25

IP:203.198.xxx.xxx 未訂閱

我想把以下的code改寫成一個com procedure ，但當我見到ComboBoxXDropDown(self) 就不知把它轉成com code....請幫幫忙....

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1DropDown(self);
  if ComboBox1.Items.Count>0 then    
    ComboBox1.ItemIndex:=0;
  
  ComboBox2DropDown(self);
  if ComboBox2.Items.Count>0 then    
    ComboBox.ItemIndex:=0;      ComboBox3DropDown(self);
  if ComboBox3.Items.Count>0 then    
    ComboBox3.ItemIndex:=0;
end;

Common procedure =========================================

procedure SelectFirstItem(Acbo:TComboBox);
begin
  //xxxxxx <---這段code 我不知怎樣寫
  if Acbo.Items.Count>0 then    
    Acbo.ItemIndex:=0;
end;

a6475
高階會員

發表：67
回覆：230
積分：154
註冊：2002-09-15

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-12-31 11:59:56

IP:211.23.xxx.xxx 未訂閱

呼叫他原先的事件就可以了。

procedure SelectFirstItem(Acbo:TComboBox);
begin
  Acbo.OnDropDown(Self);
  if Acbo.Items.Count>0 then    
    Acbo.ItemIndex:=0;
end;

..-----------βλμε------------..
◎Ｏｏ月夜光明藍更愁ｏＯ◎
藍調月光城v4：http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調．月光)：http://mypaper2.ttimes.com.tw/user/a6475 發表人 - a6475 於 2004/12/31 12:01:29

------
月夜光明藍更愁

系統時間：2024-07-04 5:00:19

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！