掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Edit への入力をサブルーチン風に使うには? (ID:22114)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
質問の趣旨が良く分からないのですが > 必要の起る度に キー入力と無関係なら、Edit1KeyPress に書く必要はないと思います。 以下のようにGetEdit1Text を作って、呼び出せば良いと思います。 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key = Chr($D) then begin s := GetEdit1Text; Key := Chr($0); end; end; function TForm1.GetEdit1Text: string; begin Result := ''; if Edit1.Modified then begin Result := Edit1.Text; Edit1.Text:=''; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.