H
huangyanming
Unregistered / Unconfirmed
GUEST, unregistred user!
我在改变背景按钮点击事件中这样写道:
procedure Tfrm_main.N5Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
if openpicturedialog1.FileName<>' ' then
begin
image_client.Picture.LoadFromFile(openpicturedialog1.FileName);
image_client.Canvas.Draw(0,0,image_client.Picture.Graphic );
image_client.Align:=alclient;
end;
end;
为何没有更新,是不是没有重画的原因?请高手指点!最好写出程序片段,小弟感激不尽!
procedure Tfrm_main.N5Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
if openpicturedialog1.FileName<>' ' then
begin
image_client.Picture.LoadFromFile(openpicturedialog1.FileName);
image_client.Canvas.Draw(0,0,image_client.Picture.Graphic );
image_client.Align:=alclient;
end;
end;
为何没有更新,是不是没有重画的原因?请高手指点!最好写出程序片段,小弟感激不尽!