掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
新規フォームにフォーカスを移動しないためには？ (ID：10576)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
var hoge:boolean; procedure TForm1.Memo1Enter(Sender: TObject); begin hoge:=true; if (Assigned(Frm2) = False) or (Frm2.Showing = False) then begin Frm2 := TForm2.Create(Self); Frm2.Show; end; end; procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if hoge then begin self.SetFocus; end; hoge:=false; end; 一瞬表示されますが
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.