如何重载TComboBox的onDropDown事件？(100分）(100分)

Z

zyycc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #1

如何重载TComboBox的onDropDown事件?
当单击下拉按钮时，我不希望列表框出现，而弹出我自己的From.

 

J

jammi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #2

Form.ShowModal;
Abort;

 

H

Huzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #3

一个是ABORT，另一个办法是重载TComboBox并截DROPDOWN消息：

TMyComboBox = class(TComboBox)
private
procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;
end;

{ TMyComboBox }

procedure TMyComboBox.CNCommand(var Message: TWMCommand);
begin
case Message.NotifyCode of
CBN_DROPDOWN:
begin
DropDown;//执行OnDropDown;
//这里是你的弹出代码
end;
else
inherited;
end;
end;

或者自己拿一个EDIT里面放一个BUTTON也行。

 

Z

zyycc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #4

To Huzzz
能否再说说Abort。能否再看看
http://www.delphibbs.com/delphibbs/dispq.asp?lid=755663
谢谢啦！

 

H

Huzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #5

Abort没什么的，jammi说的就是：

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
Abort;
end;

你那三个问题我看了，你要的就是一个TButtonEdit，你去找找吧，这样的控件
很多的，去看看它们的源码就知道了。我有TdxButtonEdit，不过它是一个系列
的，太烦，代码有几千行。
我自己做了一个，就是一个EDIT里面放了一个BUTTON，一句代码都没有。

 

F

free_knight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #6

TMyComboBox = class(TComboBox)
pubic
procedure onDropDown(Sender, Source: TObject; X, Y: Integer);override;
end;

{ TMyComboBox }

procedure TMyComboBox.onDropDown(Sender, Source: TObject; X, Y: Integer);
begin
//这里是你的弹出代码
end;

 

Z

zyycc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #7

接受答案了.不知咋的，给Huzzz的分没给到，重开帖再给？