2

申請書に 2 つの別個のフォームがあります。追加の空のフォームを 1 つ作成し、2 つのメニュー項目を含む TMainMenu コンポーネントをそのフォームに配置しました。この新しいフォームは、他のすべてが読み込まれるメイン フォームとして機能します。2 つのメニュー項目のいずれかをクリックすると、メイン フォームに関連付けられたメニュー項目に対応するフォームの内容が読み込まれます。どうすればこれを達成できますか？または、この種の問題に対する典型的なアプローチは何ですか? 簡単な実例を挙げてください。

ここに画像の説明を入力 ここに画像の説明を入力

4

3 に答える 3

0

上に を作成し、そのを設定しTPanelます。属性とも指定します。次に、 orを次のように表示します。MainFormAlign := alClientBevelOuter := bvNoneMainFormForm1: TForm1Form2: TForm2Form1Form2

表示中Form1:

if not Assigned(MainForm.Form1) then
  MainForm.Form1 := TForm1.Create(MainForm);
MainForm.Form1.Parent := MainForm.Panel1;
MainForm.Form1.Align := alClient;
MainForm.Form1.BorderStyle := bsNone;
MainForm.Form1.Visible := True;
if Assigned(MainForm.Form2) then
  MainForm.Form2.Visible := False;

もちろん、書く必要はありませんMainForm。例を明確にするためです。

于 2013-05-18T09:42:24.300 に答える