1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
|
unit test;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1:TForm;
image1,image2:TBitmap;
dc:THandle;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
//lire le contexte graphique de Edit1 et le mettre dans la variable dc
dc:=getwindowDC(edit1.handle);
//Créer la variable image1 en bitmap pour charger l'image bitamap (BMP).
image1:=TBitmap.create;
//Créer la variable image2 en bitmap pour utiliser son canvas.
image2:=TBitmap.create;
//Charger une image bitmap dans la variable image1.
image1.LoadFromFile('fond.bmp');
// lier le canvas d'image2 au contexte graphique de Edit1
image2.Canvas.handle:=dc;
//Afficher la variable image (le bitmap) dans le canvas.
image2.Canvas.draw(0,0,image1);
//Libérer les variables images.
image1.free;
image2.free;
//Libérer le contexte de dc
releaseDC(dc,0);
end;
end. |
Partager