Capture d'ecran > Dans Timage
cs_etrix
Messages postés
55
Date d'inscription
mardi 25 mars 2003
Statut
Membre
Dernière intervention
30 janvier 2004
-
24 avril 2003 à 22:05
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 25 avril 2003 à 08:42
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 25 avril 2003 à 08:42
A voir également:
- Capture d'ecran > Dans Timage
- Fond d'écran classe - Forum Java
- Casse tete plein ecran - Forum Visual Basic 6
- Animation plein écran - Forum Flash
- Fond d écran personnalisable ✓ - Forum Delphi / Pascal
- Sdl basculer en plein écran ✓ - Forum C
3 réponses
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
32
24 avril 2003 à 22:32
24 avril 2003 à 22:32
La capture d'écran devrait se trouver dans le presse-papiers de Windows.
Voici une démarche :
1- Vérifier que le format du contenu du presse-papiers est du typeCF_BITMAP
2- utiliser la méthode LoadFromClipboardFormat de l'objet TImage.Picture.
Exemple : un composant TImage (Image1) recouvre la surface cliente de la fiche Form1 et reçoit le contenu du presse-papiers si celui-ci contient une image de type bitmap :
May Delphi be with you
Voici une démarche :
1- Vérifier que le format du contenu du presse-papiers est du typeCF_BITMAP
2- utiliser la méthode LoadFromClipboardFormat de l'objet TImage.Picture.
Exemple : un composant TImage (Image1) recouvre la surface cliente de la fiche Form1 et reçoit le contenu du presse-papiers si celui-ci contient une image de type bitmap :
procedure TForm1.FormCreate(Sender: TObject);
begin
if Clipboard.HasFormat(cf_bitmap) then
Image1.Picture.LoadFromClipboardFormat(cf_bitmap,ClipBoard.GetAsHandle(cf_Bitmap), 0);
end;
May Delphi be with you
cs_etrix
Messages postés
55
Date d'inscription
mardi 25 mars 2003
Statut
Membre
Dernière intervention
30 janvier 2004
25 avril 2003 à 08:37
25 avril 2003 à 08:37
oki merci Delphiprog j'ai reussi, (il faut quand meme encore ajouter dans uses Clipbrd).
@+
@+
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
32
25 avril 2003 à 08:42
25 avril 2003 à 08:42
Effectivement, mais celà était naturellement sous-entendu. L'utilisation de l'objet Clipboard implique l'inscription de l'unité Clipbrd dans une clause Uses.
May Delphi be with you
May Delphi be with you