能不能在系统运行时在街面上动态生成edit组件？

Question

有以下代码：
  with ADOQuery1 do
  begin
     close;
     sql.Clear;
     sql.Add('select 职位 from worker-basic_info');
     open;
     first;
     while not eof  do
     begin
       CheckListBox1.Items.Add(ADOQuery1.fieldbyname('职位').AsString);
       next;
     end;
  end;
能不能每当在CheckListBox中添加一个内容，就动态的在其后加一个edit组件，以便在起中填写基本工资？

Answer 1

var
   tt: array of tedit;
   i: integer;
begin
   setlength(tt,RecordCount);
   for i:=0 to RecordCount-1 do
   begin
      tt[i]:=Tedit.Create(self);
      tt[i].Visible:=true;
      tt[i].Text:=FieldByName('职位').AsString;
      tt[i].Left:=10;
      tt[i].Top:=i*20;
      tt[i].Parent:=self;
   end;

Answer 2

var AEdit: TEdit; AEdit := TEdit.Create(self);
 AEdit.Parent := self;
 AEdit.Top := XXX;
 AEdit.Left := YYY;
 AEdit.Visible := True;
大概如此!!

Answer 3

你的需求没有必要动态生成啊，静态生成需要时将Enabled设为True，不需要时设为False不就行了。

Answer 4

动态生成Edit不难,但这样做以后反而增加了程序维护的难度
设计思路不对!

Answer 5

var rEdit;
...
with ADOQuery1 do
  begin
     close;
     sql.Clear;
     sql.Add('select 职位,工资 from worker-basic_info');
     open;
     first;
     while not eof  do
     begin
       CheckListBox1.Items.Add(ADOQuery1.fieldbyname('职位').AsString);
      //你要的
       with TEdit.Create(self) do
       begin
         parent := Self;
         left := CheckListBox1.left; 
         top  := CheckListBox1.Top + 100;    
         Text := ADOQuery1.FieldbyName('工资').AsString);
       end;
       next;
     end;
  end;

Answer 6

a mistake ...var rEdit //needless

Answer 7

为什么思路不对啊？
我也想过静态生成，但是事先补知道用几个edit啊。

Answer 8

你也可以使用StringGrid或ListView控件，它们都有编辑功能啊。

Answer 9

StringGrid的灰色各子上能不能有标题啊？
我想白格子上的内容让用户写，那里怎么是只读啊？

Answer 10

要修改StringGrid的一些属性，才能编辑：
 1、StringGrid的Options中goEditing=True；（IDE编辑窗口就可以设置）
 2、Options的其他属性根据需要设置；
 3、定义StringGrid1MouseMove消息的处理：
    procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    begin
      Grid1_X:=X;
      Grid1_Y:=Y;
    end;
    其中Grid1_X、Grid1_Y可以在StringGrid1所在的Form中定义。
 4、定义StringGrid1Click：
    procedure TForm1.StringGrid1Click(Sender: TObject);
    Var ACol,ARow:  Integer;
    begin
      //根据鼠标位置计算Cell的行和列：
      StringGrid1.MouseToCell(Grid1_X,Grid_Y,ACol,ARow);      //其他处理。
    end;

Answer 11

StringGrid的灰色各子上能不能有标题啊？
——可以，你在程序中可以直接赋值。
    StringGrid1.Cells[0,0]:='kkkkkk';
    StringGrid1.Cells[0,1]:='mmmmmm';