to:xixuemao(吸血猫) 不知道这样行不行啊? if (dlgOpen.Execute) and (FileExists(dlgOpen.FileName)) then begin with TBitmap.Create do try LoadFromFile(dlgOpen.FileName); Windows.BitBlt(Self.Canvas.Handle, 0, 0, Width, Height, Canvas.Handle, 0, 0, Windows.SRCCOPY); finally Free; end; end;
////////////////////////////////////
form.canvas.
好大的题目,吓我一跳你放image控件在窗体上以后它默认就是不响应鼠标事件的,除非你在它的事件中编写了代码
那怎么写这个代码呢?
不知道这样行不行啊?
if (dlgOpen.Execute) and
(FileExists(dlgOpen.FileName)) then
begin
with TBitmap.Create do
try
LoadFromFile(dlgOpen.FileName);
Windows.BitBlt(Self.Canvas.Handle, 0, 0, Width, Height,
Canvas.Handle, 0, 0, Windows.SRCCOPY);
finally
Free;
end;
end;
其实我的意思好象与你理解的不一样哦。
打个比方说吧,我双击image,其实是响应form的双击事件!
到底怎么画啊??下面的对吗??谢谢指教啦!procedure TForm1.FormCreate(Sender: TObject);
var
g: TGraphic;
begin
try
g:= TGraphic.Create;
g.LoadFromFile('e:\Water.jpeg');
Canvas.Draw(Left,Top,g);
finally
g.Free
end;
end;