谁帮我弄个简单的东东

Question

一个form中,有文本框,下拉框,按钮,单选,复选,TDrawGrid和StringGrid这几个控件,Grid中帮我随便添加些数据就行了,因为我要做测试,自己没有Delphi软件,谢谢

Answer 1

楼上的:这个不难啊,把几个控件扔掉form城,写一个循环就OK了...因为我不会delphi,所以想找人帮个忙的...

Answer 2

我写对delphi程序的操作程序,但是不会delphi,所以就想要个简单的exe做测试的就可以了

Answer 3

这个不难啊,把几个控件扔掉form城,写一个循环就OK了不就放几个控件吗，循环在哪写呀？

Answer 4

循环就写在form_load事件中啊,我不知道delphi中叫什么,循环主要是为了给TDrawgrid和stringGrid添加测试数据的....grid两列就行了

Answer 5

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ComboBox1: TComboBox;
    Button1: TButton;
    RadioButton1: TRadioButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    DrawGrid1: TDrawGrid;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=1 to 5 do
begin
 StringGrid1.Cells[1,I] :='11';
StringGrid1.Cells[2,I] :='55';
StringGrid1.Cells[3,I] :='88';
StringGrid1.Cells[4,I] := '99';
end;end;end.

Answer 6

object Form1: TForm1
  Left = 24
  Top = 107
  Width = 759
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 8
    Top = 24
    Width = 193
    Height = 273
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
  object ComboBox1: TComboBox
    Left = 240
    Top = 24
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 1
    Text = 'ComboBox1'
  end
  object Button1: TButton
    Left = 256
    Top = 288
    Width = 73
    Height = 41
    Caption = 'Button1'
    TabOrder = 2
  end
  object RadioButton1: TRadioButton
    Left = 248
    Top = 160
    Width = 113
    Height = 17
    Caption = 'RadioButton1'
    TabOrder = 3
  end
  object CheckBox1: TCheckBox
    Left = 248
    Top = 192
    Width = 113
    Height = 33
    Caption = 'CheckBox1'
    TabOrder = 4
  end
  object CheckBox2: TCheckBox
    Left = 248
    Top = 240
    Width = 89
    Height = 33
    Caption = 'CheckBox2'
    TabOrder = 5
  end
  object DrawGrid1: TDrawGrid
    Left = 408
    Top = 208
    Width = 320
    Height = 120
    TabOrder = 6
  end
  object StringGrid1: TStringGrid
    Left = 376
    Top = 80
    Width = 369
    Height = 120
    TabOrder = 7
  end
end

Answer 7

to zzoopp:因为我没有delphi程序,所以需要一个编辑后的exe程序,能帮我弄一下吗?谢谢

Answer 8

如果可以的话,请发到我邮箱里:[email protected]

Answer 9

查收吧
StringGrid这个控件如代码如示，可以循环赋值
TDrawGrid这个循环不了，用其它的办法实现的，它好像需要连接数据库才能取到数据
对这两个不熟悉，也是查了些资料