Discussion :

[rvzip64]

salut tout le monde , la question est dans la titre comment fair pour dessiner sur un Tbutton vu que le Tbutton ne dispose pas de canvas ?

[Lung]

Exemple avec un TBouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  canvas: TCanvas;
  DC: HDC;
begin
  canvas:= TCanvas.Create;
  DC:= GetDC(Button1.Handle);
  canvas.Handle:= DC;
  canvas.Pen.Color:= clNavy;
  canvas.Brush.Color:= clBlue;
  canvas.Rectangle(5, 5, 18, 18);
  canvas.Free;
  ReleaseDC(Button1.Handle, DC);
end;

[rvzip64]

ok merci.