Moin Red Dragon,
Zitat von
Red_Dragon:
das schliesen konnte ich net richtig da das dann irgendwie nicht mehr geladen hat
Der Fehler muss sich doch beseitigen lassen
Zitat von
Red_Dragon:
dieses integrierte schliesungsbutton hat mir vorallem gefallen
Zeichne es doch selber.
Dazu dann im PageControl auf OwnerDraw = true stellen, und, z.B. im OnDrawTab, den Button zeichnen.
Delphi-Quellcode:
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
PageControl1.Canvas.Brush.Color := clRed;
PageControl1.Canvas.FillRect(classes.Rect(PageControl1.Width-20,2,PageControl1.Width,20));
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x >= (PageControl1.Width-20+PageControl1.Left)) and (x <= (PageControl1.Width+PageControl1.Left)) and
(y >= PageControl1.Top) and (y <= (PageControl1.Top+20)) then begin
PageControl1.Canvas.Brush.Color := clNavy;
PageControl1.Canvas.FillRect(classes.Rect(PageControl1.Width-20,2,PageControl1.Width,20));
end else begin
PageControl1.Canvas.Brush.Color := clRed;
PageControl1.Canvas.FillRect(classes.Rect(PageControl1.Width-20,2,PageControl1.Width,20));
end;
end;