OnExitiイベントをキャンセルする方法があったら教えてください。
解決Delphiを初めて3ヶ月ほどの初心者です
データベースのマスターメンテを作るようにいわれ手探り状態で作ろうとしています。
マスメン用のフォームに
TEdit×32個、TDBGrid×1個、TButton（取消、保存、削除、終了）を貼り付けメンテできるところまでは漕ぎ着けましたが、問題が発生しました。
最初はTButtonのオンクリック時に内容チェックをし、フォームをクリアして
先頭の項目にSetFocusする様にしたのですが入力項目が多いため、各項目を入力した直後にチェックする様に指示され各々TEditのOnExitイベントでチェックする様に書き直しました。 これだと「取消」、「終了」ボタンをクリックするとTEditのOnExitイベントも発生するようでエラーメッセージが出てしまいます。
「取消」、「終了」ボタンのOnClickいイベントで指定したTEditのOnExitイベントを一時的に無効にする方法があったら教えてください。
開発にはWinXPとDelphi6を使っています。
よろしくお願いします。
無効にするには、OnExitイベントハンドラに nilを代入すればいいけど、
３２個のEditの個々のハンドラを変えるのは面倒なので、イベントハンドラを
一つにまとめておけば楽だね。
どのEditかを区別するには、Tagが使える。
AbortFlag変数などを用意して...
procedure TForm1.EditExit(Sender: TObject);
begin
if AbortFlag then exit;
// 通常処理
.........
end;
OnExit が実行される際に次の項目に移動か、キャンセルボタンへの移動
かは把握する事ができません
procedure TForm10.Button1Click(Sender: TObject);
begin
Caption := Caption + '2';
end;
procedure TForm10.Edit1Exit(Sender: TObject);
begin
Caption := Caption + '1';
end;
こうやるとわかるけど 1 のほうが先に表示されます
> 「取消」、「終了」ボタンのOnClickいイベントで指定したTEditのOnExitイベントを一時的に無効にする方法があったら教えてください。
OnClick が実行される時点で OnExit が実行されていますので
OnClick で OnExit を無効にしても意味がありません
こんな感じ？
function CheckData(Sender:TObject):Boolean;
var
I : Integer;
begin
Error := False;
if Assigned(Sender) = True then
begin
case TEdit(Sender).Tag of
1:
begin
if Length(TEdit(Sender).Text) <> 4 then Error := True; //４桁でなければ ERR
if TryStrToInt(TEdit(Sender).Text,I) = False then Error := True; //数字でなければ ERR
end;
2:
begin
if not (StrToIntDef(TEdit(Sender).Text,0) in [1..12]) then Error := True; //1〜12でなければエラー
end;
3:
begin
if not (StrToIntDef(TEdit(Sender).Text,0) in [1..31]) then Error := True; //1〜31でなければエラー
end;
end;
if Error = True then
begin
SaveSender2 := SaveSender;
TEdit(SaveSender).SetFocus;
end;
end;
Result := Error;
end;
procedure TForm10.FormCreate(Sender: TObject);
begin
Edit1.Tag := 1;
Edit2.Tag := 2;
Edit3.Tag := 3;
end;
{初期化}
procedure TForm10.Button1Click(Sender: TObject);
begin
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
SaveSender := nil;
end;
{保存}
procedure TForm10.Edit1Enter(Sender: TObject);
begin
if CheckData(SaveSender) = False then
begin
SaveSender := Sender;
end;
Enter := True;
end;
コメントが変だな
根本的な解決にはならないかもしれませんがTSpeedButtonを使ってみてはいかがでしょうか？
TSpeedButtonはフォーカスを受け取らないのでEditのOnExitは発生しないと思います。
的外れな回答ならごめんなさい_(._.)_
OnExitイベントでは、ActiveControlが次のコントロールを指していたりします。
なので、
if (ActiveControl = Button1) then Exit;
などとして処理を飛ばせると思います。
全てのOnExitに追加する必要がありますが。
らくするさん他色々ありがとうございました。
まず動かすことが最優先のため、もしいかしてさんの方法でOnExitイベントに判断を追加しました。
しかし仰るとおりあまりスマートではありませんので、Tagを使う等の他の方の方法も研究してゆっくりチューンナップしようと思います。
| ツイート |  |