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

解決

見習い 2004-09-06 12:11:40 No: 10811 IP: 192.*.*.*

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

編集削除

jok 2004-09-06 13:21:33 No: 10812 IP: 192.*.*.*

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 13:41:06 No: 10813 IP: 192.*.*.*

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

編集削除