掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
D&D したウィンドウにフォーカスを与えるには？ (ID：21215)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
さらに（たぶん）ベター解決・・。 この問題で、悩む人のために、経緯を残しておきます。 ＯＳバージョン問題があるようなので、もう一工夫・・と ちょっとやってみました。 ルーチンそのものは稼動しているようなので、自前のダイアログを 作ってみたらどうだろうと、下のようにしてみました。 type TForm2 = class(TCustomForm) private { Private 宣言 } public { Public 宣言 } end; var Form2: TForm2; 件のルーチンの先頭に・・・。 if Form2 <> nil then // すでに作られていたら破棄する Form2.Free; Form2 := TForm2.CreateNew(self);//フォーム動的生成 with Form2 do begin Top := 100; Left := 100; Show; Button1 := TButton.Create(Form2); with Button1 do begin Parent := Form2; Caption := 'My Botton'; OnClick := Button1Click; end; end; ・・を入れて・・・とかやると、背部に隠れていたものの、 即時表示できました。で、BringToFront; でも入れるか・・と ヘルプしてみたところ、最小化の質問で教えてもらった、 Application 。この中にも Application.BringToFront; ・・がありました。これを使うと、上のような自前のダイアログとかでなくても、 また、わざさわざフオーカスをゲットしなくても、質問を上げた状態から、 この１行の追加で、一気に解決しました。 これだと、どのＯＳでも行ける可能性は高そうに思います。 大ボケ的なこと、いろいろありますね（笑）。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.