Zitat von
toms:
Hallo
Muss es wirklich transparent sein oder möchtest du einfach auf jeder Seite den gleichen Hintergrund?
nein es reicht mir wenn der hintergrund angezeigt wird!!
Zitat von
dajuhsa:
ganz einfach! beim wiederherstellen einfach deine Methode zum Hintergrund-Anpassen nochmal ausführen, also
IMHO im Resize- bzw. Paint-Event
Das geht leider nicht erst wenn man der Button wieder drückt ist die linie weg, habe den border im pagecontrol schon auf 0 stehen!!!
hier mal der quelltext
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
SrcRect, DestRect: TRect;
begin
Image2.Picture := nil;
SrcRect.Left := PageControl1.Left;
SrcRect.Top := PageControl1.Top+2;
SrcRect.Right := PageControl1.Left+PageControl1.Width;
SrcRect.Bottom := PageControl1.Top+PageControl1.Height+1;
DestRect := Rect(0, 0, PageControl1.Width, PageControl1.Height);
pagecontrol1.Canvas.CopyRect(DestRect, Image1.Canvas, SrcRect);
image2.Canvas.CopyRect(DestRect, Image1.Canvas, SrcRect);
PageControl1.ActivePage := TabSheet1;
TabSheet1.Refresh;
end;
gruss olli