核心提示:600) this.width = 600;'>procedure TForm1.FormCreate(Sender: TObject) ;beginImage1.Transparent := Fal...
600) this.width = 600;">
procedure TForm1.FormCreate(Sender: TObject) ;
begin
Image1.Transparent := False;
Image2.Transparent := True;
Image3.Transparent := True;
with Image3.Picture.Bitmap do
begin
//middle of the image
TransparentColor := Canvas.Pixels[24,24];
//actually not needed
TransparentMode := tmFixed;
end;
end;