掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DLL化したフォームでPositionを有効にするには？ (ID：23927)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
DLL化したフォームのPosition にpoMainFormCenter あるいは、poOwnerFormCenter を指定しているのですが いずれの場合も、画面の中央に表示されてしまいます。 さらに、このフォームからCreateして表示されたフォームのPosition も効きません。 DLL内でフォームの表示位置を変えるには、明示的に位置を指定するしか方法はないのでしょうか。 参考までのコードを書いておきます。 function FHBody(Comp: TComponent; H: THandle): boolean; var FHBody: TFHBody; begin result := false; Application.Handle := H; FHBody := TFHBody.Create(Comp); <--- Comp には、呼び出し元のSelf(Form1)が入っています。 try if FHBody.ShowModal = mrOk then result := true else result := false; finally FHBody.Release; end; end; procedure TFHBody.Button1Click(Sender: TObject); begin ・ ・ Form2 := TForm2.Create(Self); ・ ・ end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.