OnExitiイベントをキャンセルする方法があったら教えてください。 (ID:29285)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんな感じ？

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;

←解決時は質問者本人がここをチェックしてください。

戻る