formbase_unt.pas

煤矿行业采掘接替计划自动生成系统

unit FormBase_Unt;

interface

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

type
  TFormBase_Frm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetControl;
    { Public declarations }
  end;

var
  FormBase_Frm: TFormBase_Frm;

implementation

{$R *.dfm}

{ TFormBase_Frm }

procedure TFormBase_Frm.SetControl;
var
i,n,ControlDis,ColumnInterval,RowInterval:integer;
begin
  n:=Panel1.ControlCount;
  if n<=0 then exit;
  ControlDis:=round((Panel1.Width-30)/n);
  ColumnInterval:=round(ControlDis/4);
  RowInterval:=round(Panel1.Height/4);
  for i:=1 to n do
  begin
   //一定要注意，只有把放在Panel1上的按钮控件的Tag值设置为11时才能对其进行排列,具体请看文档说明
   if Panel1.Controls[i-1].Tag<>11 then continue;
   Panel1.Controls[i-1].Left:=Panel1.Left+15+(i-1)*ControlDis+ColumnInterval;
   Panel1.Controls[i-1].Top:=round(RowInterval/2);
   Panel1.Controls[i-1].Height:=3*RowInterval;
   Panel1.Controls[i-1].Width:=3*ColumnInterval;
  end;
end;

procedure TFormBase_Frm.FormResize(Sender: TObject);
begin
SetControl;
Self.Refresh;
end;

end.