摘要:
procedure TForm1.BitBtn1Click(Sender: TObject); var i,j:Integer; begin for i := 1 to 9 do for j := 1 to 9 do StringGrid1.Cells[i,j]:=IntToStr(i*j); en 阅读全文
摘要:
var change:Boolean; procedure TForm1.BitBtn1Click(Sender: TObject); begin if (change) then begin Image1.Picture.LoadFromFile('./images/1.bmp'); //1.图片 阅读全文