Exitイベントをoverrideする方法を教えてください

解決

見習い 2004-09-06 21:11:40 No: 10811

TEditのイベントで、OnExit をoverrideしようとするとコンパイルエラー
がでてしまいます。
KeyDownとかは問題なくできるのですが、どうしたらよいのでしょうか。
やりたいのは、TEDITで数値入力とマイナス符号入力制限をかけたいのです。
入力が終わったときにマイナス符号だけだった場合テキストをクリアしたいのです。
よろしくお願いします。

jok 2004-09-06 22:21:33 No: 10812

DoExit メソッドを override します。

type
TMyEdit = class(TEdit)
protected
procedure DoExit; override;
end;

...

procedure TMyEdit.DoExit;
begin
  if (Text = 'C') or (Length(Text)=0) then  // 色々な条件で
  begin
    Text := '';
    SetFocus;
  end
  else
    inherited;  // 通常処理=イベントハンドラを呼び出す and 次にフォーカスが移る
end;

見習い 2004-09-06 22:41:06 No: 10813

jokさん、できました。感謝します。
DoExitメソッドだったのですね。
本当にありがとうございました。