掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
プログラムを分割するには？ (ID：22036)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
むか〜し、アプリをパネルなどに貼り付けたくて、色々実験したことがあります。 以下がそのときのコードですが、一応貼り付きます。 これがいいのかどうかは分かりません＾＾； 貼り付けられるアプリのフォームのNameは、FrmTestで、 BorderStyle は bsNone にしてます。 var h: THandle; R: TRect; iwW, iwH: Word; begin ShellExecute(Handle, nil, PChar('C:\test.exe'), nil, nil, SW_SHOW); sleep(100); h := FindWindow(PChar('TFrmTest'), nil); Application.ProcessMessages; GetWindowRect(h, R); iwW := R.Right - R.Left; iwH := R.Bottom - R.Top; MoveWindow(h, Screen.Width, Screen.Height, iwW, iwH, True); SetWindowLong(h, GWL_STYLE, WS_CHILD); Windows.SetParent(h, TabSheet1.Handle); ShowWindow(h, SW_SHOWMAXIMIZED); MoveWindow(h, 0, 0, iwW, iwH, True); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.