Editで最大、最小などの制限を設けたもの (ID:37475)

名前

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

本文 変なコードですが、コンポーネントを作らなくても一応動作します。 Edit2のOnKeyUpはEdit1のものを割り当てます。 あんまりお勧めはできませんが・・・ procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var bo: Boolean; ls: Single; begin if TEdit(Sender).Text <> '' then begin try ls := StrToFloat(TEdit(Sender).Text); bo := ((ls >= TEdit(Sender).Tag) and (ls <= TEdit(Sender).HelpContext)); except bo := False; end; if bo then TEdit(Sender).Hint := TEdit(Sender).Text else TEdit(Sender).Text := TEdit(Sender).Hint; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Tag := 0; //最小値 Edit1.HelpContext := 100; //最大値 Edit2.Tag := 0; Edit2.HelpContext := 200; Edit1.Text := '0'; Edit2.Text := '0'; end;