JVCLについて (ID：11310)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

JVCLとかJCLって結構有名なのね。知らなかった--;

TJvPageControlの透明化を行いましたので、ふぐちゃんさんのリンクと
見比べてください。

---
unit Unit2;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, JvComCtrls;

type
  // 透明で 背景消去を行わない コンテナウィンドウコントロール
  TJvPageControlEx = class(TJvPageControl)
  private
    procedure WMEraseBkGnd(var Msg: TWMEraseBkGnd);
              message WM_ERASEBKGND;
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyTestCtrls', [TJvPageControlEx]);
end;

{ TJvPageControlEx }

constructor TJvPageControlEx.Create(AOwner: TComponent);
begin
  inherited;
  Width := 100; Height := 100;
  // 上にコントロールが貼りつけられるようにする
  ControlStyle := ControlStyle + [csAcceptsControls];
end;

procedure TJvPageControlEx.CreateParams(var Params: TCreateParams);
begin
  inherited;
  // 実行時は「透明」なウィンドウ
  if not (csDesigning in ComponentState) then
    Params.ExStyle := Params.Exstyle + WS_EX_TRANSPARENT;
end;

procedure TJvPageControlEx.WMEraseBkGnd(var Msg: TWMEraseBkGnd);
begin
  // 実行時は背景消去をしない
  if csDesigning in ComponentState then inherited;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る