这是我刚才测试用的代码,一并发出来。没有问题的。 procedure TForm1.Button1Click(Sender: TObject); begin with Image2 do begin Picture.Bitmap.LoadFromFile('c:\a001.bmp'); Transparent := True; end; end;procedure TForm1.Button2Click(Sender: TObject); begin with Image2 do begin Canvas.Brush.Style := bsClear;{加这句} Canvas.MoveTo(30, 30); Canvas.LineTo(70, 70); end; end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with Image2 do begin
Picture.Bitmap.LoadFromFile('c:\a001.bmp');
Transparent := True;
end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
with Image2 do begin
Canvas.Brush.Style := bsClear;{加这句}
Canvas.MoveTo(30, 30);
Canvas.LineTo(70, 70);
end;
end;