德尔福。删除PageControl的TabSheet边框

问题描述

需要您的帮助。

是否可以删除TabSheet（〜4px）的边框？我正在使用PageControl作为开关面板，而不是框架，窗口等。我想要一切都会很直接。

Is it possible to remove a border of TabSheet (~4px)? I am using PageControl as a switch-panel instead of frames, windows etc. I want everything will be straight.

非常感谢您的帮助！

推荐答案

unit Unit1;

interface

uses
  ...,
  CommCtrl;

type
  TPageControl = class(ComCtrls.TPageControl)
  private
    procedure TCMAdjustRect(var Msg: TMessage); message TCM_ADJUSTRECT;
  end;

  TForm1 = class(TForm)
    ...
  end;

...

procedure TPageControl.TCMAdjustRect(var Msg: TMessage);
begin
  inherited;
  if Msg.WParam = 0 then
    InflateRect(PRect(Msg.LParam)^, 4, 4)
  else
    InflateRect(PRect(Msg.LParam)^, -4, -4);
end;

...

end.

这篇关于德尔福。删除PageControl的TabSheet边框的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！