掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
数字キーで他のフォームを表示するには？ (ID：12117)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
私のテスト手順です． (1) 新規プロジェクトを作成．このFormをForm1 (2) [ファイル][フォームの新規作成]．このForm2 このFormにEditを一つ配置． (3) Form1を表示して，[ファイル][ユニットを使う]で unit2を選択． (4) Form1を表示して，OnKeyPressのコードを以下とする． procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key in ['0'..'9'] then begin Form2.Edit1.Text:=Key; Form2.ShowModal; end; end; (5) 実行して，0〜9までのどれかのキーを押す． Form2が表示される． 以上ですよ．自分がやった手順を書かないと，どこに不具合があるのか わかりません．このぐらいのコードでしたら，是非提示して下さいませ． http://homepage2.nifty.com/Mr_XRAY/Links.htm ここのメールのマナーのリンクも是非お読み下さいませ．
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.