var
Canv: TCanvas;
Bitmap:TBitmap;
begin
Canv:=TCanvas.Create;
Canv.Handle:=GetDC(Panel1.Handle);
Bitmap:=TBitmap.create;
Bitmap.loadfromfile('C:\Tonchemin..Ton.bmp');
Canv.Draw(0,0,bitmap);
Canv.font.color:=clred;
Canv.brush.Style:=BsClear;
Canv.TextOut(20,20,'Un petit message');
FreeAndNil(Canv); // ou "Canv.Free;" selon les versions de Delphi
end;
|
c'est un exemple...problème il faudrait le mettre dans l'événement ondraw du panel...Or, il n'y en a pas (il faut le créér)...ou alors écrire dans l'événement onpaint du form (pas terrible)
Sinon, il y a la solution de mettre une TImage sur ton panel et écrire sur son canvas de la même manière que je t'ai montré ci-dessus mais en utilisant directement le canvas du TImage
DrJerome ou JROD
