Delphi en el desktop wallpaper
Hola gaunmanuel, me podrías comentar si existe alguna manera de colocar formularios en el desktop wallpaper, desde ya muchas gracias
1 Respuesta
Respuesta de gaunmanuel
1
* Añade 'Clipbrd' en el uses de tu form
* Pon este código en el OnClick de un TButton:
procedure TForm1.Button1Click(Sender: TObject);
var bitmap:tbitmap;
begin
bitmap:=tbitmap.create;
bitmap.width:=clientwidth;
bitmap.height:=clientheight;
try
with bitmap.Canvas do
CopyRect (clientrect,canvas,clientrect);
clipboard.assign(bitmap);
finally
bitmap.free;
end;
end;
Y listo saludos
* Pon este código en el OnClick de un TButton:
procedure TForm1.Button1Click(Sender: TObject);
var bitmap:tbitmap;
begin
bitmap:=tbitmap.create;
bitmap.width:=clientwidth;
bitmap.height:=clientheight;
try
with bitmap.Canvas do
CopyRect (clientrect,canvas,clientrect);
clipboard.assign(bitmap);
finally
bitmap.free;
end;
end;
Y listo saludos
