DESSINER SUR LE BUREAU
japee
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
-
28 juil. 2004 à 22:56
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 28 juil. 2004 à 22:56
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 28 juil. 2004 à 22:56
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/24978-dessiner-sur-le-bureau
https://codes-sources.commentcamarche.net/source/24978-dessiner-sur-le-bureau
28 juil. 2004 à 22:56
Delphipage l'a déjà récupéré, fais gaffe au copyright...
A cette adresse :
http://delphipage.free.fr/astuces/dessbure.html
sous le titre :
Dessiner sur le bureau en Delphi
En voici un copier-coller :
Ajouter un composant TButton.
procedure TForm1.Button1Click(Sender: TObject);
var DC:HDC;
begin
DC:=GetDc(0);
MoveToEx(Dc,0,0,nil);
LineTo(Dc,300,300); //Dessine un ligne
ReleaseDc(0,DC);
end;