04 2021 档案

实例三显示乘法口诀表

摘要：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 阅读全文

posted @ 2021-04-04 16:32 三言两语学编程阅读(95) 评论(0) 推荐(0) 编辑

实例二点击按键更换背景

摘要：var change:Boolean; procedure TForm1.BitBtn1Click(Sender: TObject); begin if (change) then begin Image1.Picture.LoadFromFile('./images/1.bmp'); //1.图片阅读全文

posted @ 2021-04-04 16:28 三言两语学编程阅读(74) 评论(0) 推荐(0) 编辑

实例一 hello world

摘要：procedure TForm1.Button1Click(Sender: TObject); begin Application.Terminate; //关闭程序 end; 完整文件地址： https://files.cnblogs.com/files/blogs/664406/%E5%AE%9 阅读全文

posted @ 2021-04-04 16:23 三言两语学编程阅读(59) 评论(0) 推荐(0) 编辑