H
hongxing_dl
Unregistered / Unconfirmed
GUEST, unregistred user!
我上面的代码运行确实看不到效果,但你把它写成组件安装上去就行了
或者:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
mygrid:=tmygrid.create(Self);
mygrid.parent:=self;
mygrid.left:=0;
mygrid.top:=0;
mygrid.Height:=300;
mygrid.Options:=mygrid.Options-[dgIndicator];
mygrid.DataSource:=DataSource1;
end;
看看效果也好——:)
feier_jun的那段代码,我用d4没有试出来,不知道是不是 d4以上就有了
或者:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
mygrid:=tmygrid.create(Self);
mygrid.parent:=self;
mygrid.left:=0;
mygrid.top:=0;
mygrid.Height:=300;
mygrid.Options:=mygrid.Options-[dgIndicator];
mygrid.DataSource:=DataSource1;
end;
看看效果也好——:)
feier_jun的那段代码,我用d4没有试出来,不知道是不是 d4以上就有了