panel 组件如何在窗体中居中显示

Question

   各们大侠：
请问在delphi中　panel　组件如何在窗体中居中显示

Answer 1

procedure TForm1.FormShow(Sender: TObject);
begin
  panel1.top:=form1.top div 2;
  panel1.left :=form1.left div 2;end;

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Left:=(Form1.ClientWidth-Panel1.Width) div 2;
  Panel1.Top:=(Form1.ClientHeight-Panel1.Height) div 2;
end;procedure TForm1.FormResize(Sender: TObject);
begin
  Panel1.Left:=(Form1.ClientWidth-Panel1.Width) div 2;
  Panel1.Top:=(Form1.ClientHeight-Panel1.Height) div 2;
end;end.

Answer 3

各位大侠:请问delphi如何 生成exe安装文件

Answer 4

用inno setup 做个安装程序