delphi frameµÄÎÊÌâ

Ò»¡¢Ö÷´°Ìå´úÂë
unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, WinSkinData, StdCtrls, RzBmpBtn, SUIButton,
  SUIImagePanel, ComCtrls;

type
  TMainForm = class(TForm)
    procedure RzBmpButton1Click(Sender: TObject);
....

var
  MainForm: TMainForm;
  My_Frame: TFrame;

implementation

uses
  My_Frame_Unit;

{$R *.dfm}

procedure TMainForm.RzBmpButton1Click(Sender: TObject);
begin
  if FindComponent('My_Frame') = nil then
  begin
    My_Frame:= TMyFrame.create(Self);
    My_Frame.Parent := MainForm.Panel6; //¹Ø¼üµÃ¼ÓÉÏÕâ¸ö£¬ÆäËüµÄ¿ÉÒÔ×ÔÑ¡Ñ¡Ôñ
    My_Frame.Visible := true;
    My_Frame.Align := alClient;
  end;
  My_Frame.BringToFront;
  //ÏëÔÚÕâÀï¼ÓÈëÉèÖÃMy_FrameÀïÃæµÄImage1µÄpictures£¬µ«¾¹È»ÎÞ·¨¿ØÖÆMy_FrameÀïÃæµÄ¿Ø¼þ£¬ºÎ½â£¿ÈçºÎ²ÅÄÜÔÚÖ÷´°¿ÚÀï²Ù×÷frameÀïÃæµÄ¿Ø¼þ£¿
end;


¶þ¡¢FrameÎļþ

unit My_Frame_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;