請問如何加OnCloseUp Event在TComboBox裏? 應在那裡適當地加上這句event，才可觸發這句OnCloseUp? 謝謝.......

原本用在TComboBox加掛處理CBN_CLOSEUP訊息的處理函式, 但這個事件一直出不來. 所以我追溯到CNCommand這個message handler, 捕捉CBN_CLOSEUP 這個訊息, 就被我捕捉到啦.    ps:SDK help裡說CBN_CLOSEUP,在ComboBox為CBS_SIMPLE型態時出不來    以下程式片段提供您參考

  TComboBox=class(StdCtrls.TComboBox)
  private
    procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;
  protected
    procedure DoCloseUp(Sender:TObject);
  end;
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Memo1: TMemo;
  private
  public
  end;    procedure TComboBox.CNCommand(var Message: TWMCommand);
begin
  inherited;
  case Message.NotifyCode of
    CBN_CLOSEUP:
      DoCloseUp(Self);
  end;
end;    procedure TComboBox.DoCloseUp(Sender: TObject);
begin
  Form1.Memo1.Lines.Add('CloseUp');
end;

多謝....pedro 但是不行......你可否你整個程式貼出來?    我想問...在form上需不需要預先將這個Tcombox drag & drop 到form上? 我有些不明白

程式碼這裡下載 http://delphi.ktop.com.tw/loadfile.php?TOPICID=14350750&CC=320950

可行了...... 很多謝