Onchange事件如何触发(100分)

  • 主题发起人 主题发起人 bluerain
  • 开始时间 开始时间
B

bluerain

Unregistered / Unconfirmed
GUEST, unregistred user!
我写了一个基于TCustomPanel的类。在Panel上放了唯一的一个Edit,还有别的一些按钮等。
现在我想开放一个OnChange事件。其实就是Edit的Onchange事件。
不知我表达清楚了没有。谢谢指教!
 
试试这样?
……
private
FEdit :TEdit;

publish
property OnChange :TNotifyEvent read FEdit.OnChange Write FEdit.OnChange;

仅供参考,实际上我也没试过。^-^
 
没听蛮懂,不过下列语句可以触发edit1的onchange
sendmessage(Edit1.handle,CN_COMMAND,50331648,0);
 
KyKix的方法我试了一下,不行。
我再解释一下问题:我想当用户何时在edit中输入或改变文字
 
o,你是想当用户输入或改变text时触发你自己定义的类的onchange?

type
mypanel=class(TCustomPanel)
...
private
FOnChange: TNotifyEvent;
FEdit:TEdit;
EditChange:TNotifyEvent;
published
property OnChange: TNotifyEvent read FOnChange write FOnChange;
.....
public
constructor Create(AOwner: TComponent); override;
..........

constructor TMyPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FEdit.Create(Self);
FEdit.Parent:=self;
......
FEdit.OnChange:=EditChange;
...
end;

Procedure TMyPanel.EditChange(Sender:TObject);
begin
....
if Assigned(FOnchange) then FOnChange(Self);
...
end;
.............
 
接受答案了.
 
后退
顶部