Auf Tabsheet zeichnen

[Spurius]

Hallo,
wie kann ich auf ein Tabsheet von einem Pagecontrol zeichnen?
Das Pagecontrol hat Canvas, aber das Tabsheet nicht
Gruß
Spurius

[Neg]

Platziere doch einfach ein Panel auf dem Tabsheet...

[MaOfDe]

Hi,
zwei Possibilities:
1.: Alles auf ein Bitmap zeichnen und das Bitmap dem TabSheet übergeben:
TabSheet1.Brush.Bitmap:=MyBMP; Hab ich irgendwo gelesen, aber selber noch nicht versucht, ich ziehe die zweite Möglichkeit vor:

2.: Kreier eine Instanz von TCanvas und übergebe die Eigenschaft Handle von TabSheet folgendermaßen:

Delphi-Quellcode:

MyCanvas:=TCanvas.Create;
try
  MyCanvas.Handle:=GetDC(TabSheet1.Handle);
  MyCanvas.TextOut(0, 0, 'So zeichnest du dann aufs TabSheet ;-)');
finally
  ReleaseDC(MyCanvas.Handle, TabSheet1.Handle);
  MyCanvas.Free;
end;

Bevor du deine Instanz von TCanvas wieder freigibst, musste des Handle freigeben mit ReleaseDC...klappt merkwürdigerweise auch ohne... zumindest bei mir.
Klappt übrigens mit allem was als Eigenschaft Handle hat...naturlement vom Typ HWND.

[MrKnogge]

Zitat von Neg:

Platziere doch einfach ein Panel auf dem Tabsheet...

Seit wann hat denn ein Panel TCanvas

Ich hatte mal ein ähnliches Problemund hab mir einfach ein label draufgeschmissen.

[Neg]

Ja, stimmt, Panel geht nicht. Hatte ich falsch in Erinnerung.

Wie wäre es mit einer PaintBox?