procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Width := Image1.Width + 10;
Image1.Highe := Image1.Width + 10;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Width := Image1.Width - 10;
Image1.Highe := Image1.Width - 10;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Stretch := True;
end;
begin
Image1.Width := Image1.Width + 10;
Image1.Highe := Image1.Width + 10;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Width := Image1.Width - 10;
Image1.Highe := Image1.Width - 10;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Stretch := True;
end;
解决方案 »
- windows服务程序
- 【紧急求助】高手请进!关于多线程窗口框架技术
- delphi打印问题,在线等.......
- TColumnComboBox控件显示多表的使用方法?
- 问一个控件的问题,来抢分吧
- 通过MOXA连接16个串口设备,我该用16个spcomm控件还是用一个呢?
- 有谁做过或者正在做jabber即时通讯的,请留下msn大家可以相互讨论!
- ███████裸求【LEADTOOLS】正式版!███████
- 请教SQL查询问题
- 怎样监控端口,拦截数据
- Sos maskedit 的难题
- 如何创建一个无焦点的Form?类似模拟键盘。另外,谁知道WebBrowser控件如何把显示的网页另存为本地文件,类似IE里面的文件另存为功能。
begin
Image1.Width := Image1.Width + 10;
Image1.Highe := Image1.Width + 10;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Width := Image1.Width - 10;
Image1.Highe := Image1.Width - 10;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Stretch := True;
end;
begin
with Image1 do
begin
Width := Width + trunc(Width * 10 / 100);
Height := Height+ trunc(Height * 10 / 100);
end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
with Image1 do
begin
Width := Width - trunc(Width * 10 / 100);
Height := Height - trunc(Height * 10 / 100);
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Stretch := True;
end;