Zitat von
Oliver1983:
Zitat von
toms:
Dann kannst du ja deinen Code nehmen und zusätzlich in der WndProc den Rand "verstecken"
bekomme das nicht hin kannst du mir helfen?
gruss olli
Steht ja alles in der
Unit
In der Interface Section schreibst du:
Delphi-Quellcode:
type
TPageControl = class(ComCtrls.TPageControl)
protected
procedure WndProc(var Message: TMessage); override;
end;
in der implementation Section:
Delphi-Quellcode:
procedure TPageControl.WndProc(var Message: TMessage);
begin
if (Message.Msg = TCM_ADJUSTRECT) then
begin
inherited WndProc(Message);
PRect(Message.LParam)^.Left := 0;
PRect(Message.LParam)^.Right := ClientWidth;
PRect(Message.LParam)^.Top := -2;
PRect(Message.LParam)^.Bottom := ClientHeight;
end
else
inherited WndProc(Message);
end;