TCanvas i Panel

Jak można rysować po panelu, skoro nie posiada on klasy TCanvas? Chyba ze posiada, a ja nie zauważyłem :). Czy są jakieś inne sposoby na rysowanie po panelu.

Możesz wziąć jego uchwyt i wykorzystać go do rysowania

Możesz wziąć jego uchwyt i wykorzystać go do rysowania

var aCanvas:TCanvas;
begin
  aCanvas:=TCanvas.Create;
  aCanvas.Handle:=GetDC(Panel1.Handle);
  aCanvas.TextOut(0,10,'Działa');
  aCanvas.Free;
end;

var aCanvas:TCanvas;
begin
  aCanvas:=TCanvas.Create;
  aCanvas.Handle:=GetDC(Panel1.Handle);
  aCanvas.TextOut(0,10,'Działa');
  aCanvas.Free;
end;

Nie działa :(. Co prawda kompilator nie wyświetla błędu, ale na Panelu nic się nie pokazuje.

nie jestem pewien, ale na koncu procedury chyba nie powinnno byc acanvas.free

Dzięk wszystkim za pomoc. Już mi wszystko działa. Pozdro.