掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ドッキングについて (ID:29991)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ドッキングについて教えて下さい あるパネルにメモコントロールを置いています。 そのパネルにフォーム１をドッキングして 両方表示したいのですが、下記のコードでは メモコントロールの上にもフォーム１が表示されてしまいます 【環境】デルファイ６パーソナル procedure TfrmMain.Button1Click(Sender: TObject); var //lRect: TRect; begin // フォームが一瞬表示されてしまうので、画面の外に表示させます。 Form1.Left := -2000; // フォームの表示 Form1.Show; Form1.ManualDock(DockPanel, nil, alNone); //lRect.TopLeft := DockPanel.ClientToScreen(Point(0, 50)); //lRect.BottomRight := DockPanel.ClientToScreen(Point(85, DockPanel.Height)); //Form1.DockRect := lRect; //Form1.ClientHandle := lRect; //lRect := Rect (5, 1, 20, 20); //InvalidateRect(Form1.Parent.Handle, @lRect, True); end procedure TfrmMain.DockPanelDockDrop(Sender: TObject; Source: TDragDockObject; X, Y: Integer); begin //???? end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.