急救！!动态窗体的生成

Question

var edit:tedit;
    i,tope:integer;
begin
   tope:=0;
   for i:=0 to m*n do
   begin
       edit:=tedit.Create(application);
       edit.top:=tope;
       edit.Parent:=form1;
       tope:=tope+edit.Height+3;
   end;
end;

Answer 1

你在做毕业设计吗，用richedit做吧！

Answer 2

function f(mParent: TWinControl; M, N: Integer): Boolean;
var
  I, J: Integer;
begin
  Result := False;
  if not Assigned(mParent) then Exit;
  for I := 0 to M - 1 do
    for J := 0 to N - 1 do
      with TEdit.Create(mParent) do begin
        Parent := mParent;
        Left := Width * I;
        Top := Height * J;
      end;
  Result := True;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  vForm: TForm;
begin
  vForm := TForm.Create(nil);
  try
    vForm.AutoSize := True;
    f(vForm, StrToIntDef(Edit1.Text, 0), StrToIntDef(Edit2.Text, 0));
    vForm.ShowModal;
  finally
    vForm.Free;
  end;
end;

Answer 3

function f(mParent: TWinControl; M, N: Integer): Boolean;
var
  I, J: Integer;
begin
  Result := False;
  if not Assigned(mParent) then Exit;
  for I := 0 to M - 1 do
    for J := 0 to N - 1 do
      with TEdit.Create(mParent) do begin
        Parent := mParent;
        Left := Width * I;
        Top := Height * J;
      end;
  Result := True;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  vForm: TForm;
begin
  vForm := TForm.Create(nil);
  try
    vForm.AutoSize := True;
    f(vForm, StrToIntDef(Edit1.Text, 0), StrToIntDef(Edit2.Text, 0));
    vForm.ShowModal;
  finally
    vForm.Free;
  end;
end;

Answer 4

unit MyFormUnit;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TMyForm = class (TForm)
  protected
    FEdits:array of array of TEdit;
  public
    procedure EditExit(Sender: TObject);
    constructor CreateWithEdits(Owner:TComponent;M,N:Integer);
  end;
var
  MyForm: TMyForm;implementation{$R *.DFM}constructor TMyForm.CreateWithEdits(Owner:TComponent;M,N:Integer);
const
  EDITWIDTH = 100;
var
  i,j:Integer;
begin
  inherited Create(Owner);
0A  SetLength(FEdits,M);
  for i := 0 to m-1 do
  begin
    SetLength(FEdits[i],N);
    for j := 0 to n-1 do
    begin
      FEdits[i,j] := TEdit.Create(self);
      FEdits[i,j].Width := EDITWIDTH;
      FEdits[i,j].Left := i * (EDITWIDTH + 10) + 10;
      FEdits[i,j].Top := j * (FEdits[i,j].Height + 5) +5;
      FEdits[i,j].OnExit := EditExit;
      InsertControl(FEdits[i,j]);
    end;
  end;
end;procedure TMyForm.EditExit(Sender: TObject);
begin
  with (Sender as TEdit) do
  begin
    //处理Edit的Exit事件.
  end;
end;end.
     ____     ____
     \ p \   / g /
      \ l \_/ n /
       \ a   o /
        \ i s /
         \ n /
          \_/