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.