如何注册DELPHI3中的HTML.OCX控件？

Posted 2023-05-08

参考技术A 我用DELPHI3开辟了一个应用法度榜样，法度榜样顶用到Thtml控件，在分发法度榜样时，在其它机械上无法注册HTML.ocx控件，请多指教！！！

Delphi中StringGrid控件如何添加数据？

不用读数据库..自己添加数据..

参考技术A procedure TForm1.StringGrid1Click(Sender: TObject);
var
i,j:Integer;
begin
StringGrid1.ColCount := 128;
StringGrid1.RowCount := 128;
for i:= 34 to StringGrid1.ColCount do
begin
StringGrid1.Cells[i-33,0]:= IntToStr(i-33);
StringGrid1.ColWidths[i-33] := StringGrid1.Canvas.TextWidth(' 宽 ')
end;

for j:= 34 to StringGrid1.RowCount do
begin
StringGrid1.Cells[0,j-33]:= IntToStr(j-33);
end;

for j:= 34 to StringGrid1.RowCount do
for i:= 34 to StringGrid1.ColCount do
StringGrid1.Cells[i-33,j-33]:= Chr(j+127)+ chr(i+127);
end;

单击StringGrid时触发的事件。 参考技术B var
i,j:integer; //i为列 ,j为行
begin
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
stringgrid1.Cells[i,j]:=inttostr(i)+''''+inttostr(j);
end;
end;
end;