Dessiner sur le bureau

procedure TForm1.Button1Click(Sender: TObject);
var
Picture : TPicture;
Desktop : TCanvas;
X, Y : Integer;

begin
Picture := TPicture.Create;
Desktop := TCanvas.Create;
Picture.LoadFromFile('bitmap1.bmp');
Desktop.Handle := GetWindowDC(0);
X := 100;
Y := 100;
Desktop.Draw(X, Y, Picture.Graphic);
ReleaseDC(0, Desktop.Handle);
Picture.Free;
Desktop.Free;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour25/03/2006
VisualisationVu 2657 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Graphisme
Auteur de l'article
Communauté Delphi Communauté Delphi
connecté le 02/11/2011
0 articles dans la section
Contacter l'auteur