掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
新規フォームにフォーカスを移動しないためには？ (ID：10579)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
OnEnter でフォーカスを変更するのはまずいようです。 以下でうまくいきました { Private 宣言 } public procedure WMApp(var Msg:TMessage);message WM_APP; end; var Form1: TForm1; implementation {$R *.DFM} uses Unit2; procedure TForm1.Memo1Enter(Sender: TObject); begin if not Assigned(Form2) then Form2 := TForm2.Create(Self); if not Form2.Showing then begin Form2.Show; PostMessage(Handle,WM_APP,0,0); end; end; procedure TForm1.WMApp(var Msg: TMessage); begin SetFocus; Memo1.SetFocus; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.