*Thread ausbuddel
Wollte grad dem von SirThornberry nachgehen und habe eine mit eine TTransPageControl gebastelt aber leider scheint es nur zur Hälfte zur funktionieren. Sobald TabSheets drauf sind ist da leider nichts mehr Transparent
Kann wer helfen?
Delphi-Quellcode:
unit uMain;
interface
uses
Windows, Classes, Controls, ComCtrls, ExtCtrls;
type
TTransPageControl =
class(TPageControl)
private
public
procedure CreateParams(
var Params: TCreateParams);
override;
published
end;
procedure Register;
implementation
procedure TTransPageControl.CreateParams(
var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle + WS_EX_Transparent;
end;
procedure Register;
begin
RegisterComponents('
Test', [TTransPageControl]);
end;
end.