K kikime Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-06 #1 我有一个文本框，现在使其在失去焦点的时候执行一个验证事件，如果验证失败就重新获得焦点，这可以加在onexit或onvalidate事件中，同时，我又放了一个取消按钮，想在按下它的时后取消验证并退出操作，可我不知道这一步怎么实现，点按钮的时候老是没有作用，而一直是进行验证事件，希望哪位高手赐教一下!
我有一个文本框，现在使其在失去焦点的时候执行一个验证事件，如果验证失败就重新获得焦点，这可以加在onexit或onvalidate事件中，同时，我又放了一个取消按钮，想在按下它的时后取消验证并退出操作，可我不知道这一步怎么实现，点按钮的时候老是没有作用，而一直是进行验证事件，希望哪位高手赐教一下!
L liuchong Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-06 #2 加一个全局变量YZ呗， if YZ then begin //验证 end 使用Edit.tag也行
B babibean Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-06 #5 点击取消按钮的时候写： Edit.OnExit :=nil; Edit.onvalidate:=nil;
K kikime Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-06 #6 这个在按钮的onclick事件中没用，在onmouseup事件中第二次按才有用，请问按钮有没有比edit的onvalidate更前面的事件了
K kikime Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-06 #7 to:babibean Edit.onvalidate:=nil; 之后又怎么让它还原呢？
F formality Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-06 #8 { Private declarations } procedure sd(Sender: TObject); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); begin if not Assigned(edit1.OnExit) then edit1.OnExit :=sd else edit1.OnExit:=nil end; procedure TForm1.sd(Sender: TObject); begin showmessage('123'); end; end.
{ Private declarations } procedure sd(Sender: TObject); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); begin if not Assigned(edit1.OnExit) then edit1.OnExit :=sd else edit1.OnExit:=nil end; procedure TForm1.sd(Sender: TObject); begin showmessage('123'); end; end.
D duhai_lee Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-06 #9 我来帮你。。 如果你的取消校验的 按钮 叫 button1， 则在 edit的onexit中书写如下代码： begin if Self.ActiveControl <> Button1 then begin Caption := 'Exit Envet checking。。。。。' // 加入校验代码 end； end;
我来帮你。。 如果你的取消校验的 按钮 叫 button1， 则在 edit的onexit中书写如下代码： begin if Self.ActiveControl <> Button1 then begin Caption := 'Exit Envet checking。。。。。' // 加入校验代码 end； end;
