为什么不行----关于增加一行数据到StringGrid

Question

本帖最后由 cowbo 于 2011-04-27 15:17:49 编辑

Answer 1

TForm1Form.newAAA('111111'); TForm1Form   -> 实例化一个Form

Answer 2

楼上，不是的，我写借了而已 是Form1Form.newAAA('111111'); 主要是窗体B是窗体A 的FormShow时运行的，和这个有关系吗

Answer 3

应该是对象使用NEWAAA（);
你上面写是class使用

Answer 4

不知道你是怎么写的，试了下不管是ShowModal,还是Show,都没有问题

Answer 5

procedure TForm1Form.newAAA(TName:string);
begin
    with Form1Form.StringGrid1 do
    begin
        RowCount:=RowCount+1;
        Cells[0,RowCount-1]:=TName;
    end;
end;这样试试看

Answer 6

刚上来，部份代码如下：1.pub.pas//显示窗体
function ShowForm(AFormClass:TFormClass):Boolean;Overload;
begin
  Screen.Cursor:= crHourGlass;
  with AFormClass.Create(Application) do
  begin
    Screen.Cursor:= crDefault;
    Position:=poScreenCenter;
    ShowModal;
    clearmemory;
  end;
end;
2.窗体Aprocedure TAForm.newAAA(TName:string);
begin
    with self.StringGrid1 do
    begin
        RowCount:=RowCount+1;
        Cells[0,RowCount-1]:=TName;
    end;
end;procedure TAForm.FormShow(Sender: TObject);
begin
  inherited;
    ShowForm(TBForm);//显示B窗体
    StringGrid1.Cells[0,0]:='Job List';end;//B窗体里的按钮Click时
procedure TPauseForm.SaveClick(Sender: TObject);
begin
  inherited;
    AForm.newAAA('111111');
    close;
end;