Kan man få et gennemsigtigt panel??? (ANDET FORSØG)

Hvis du har Delphi 6 så sætter du AlphaBlend til True på din form, så kan du variere på AlphaValue

Jeg forstår ikke helt hvad du mener!!? Hjælpen siger at man skal køre 'win2000 or better...' Det skal kunne køre på en win98 maskine! Udviklingsmiljøet er Delphi7!

unit Tranpanl;

interface

uses
  Windows, SysUtils, Classes, Controls, Graphics;

type
  TTranPanel = class(TCustomcontrol)
  private
    FBorder: Boolean;
    procedure SetBorder(Value: Boolean);
  protected
    procedure Paint; override;
  public
    procedure CreateParams(var Params: TCreateParams); override;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Border: Boolean read FBorder write SetBorder;
    property Visible;
    property Enabled;
    property Align;
    property OnClick;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Borrisholt', [TTranPanel]);
end;

procedure TTranPanel.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle + WS_EX_Transparent;
  ControlStyle := ControlStyle - [csOpaque] + [csAcceptsControls]
end;

constructor TTranPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Width  := 100;
  Height := 100;
end;

destructor TTranPanel.Destroy;
begin
  inherited Destroy;
end;

procedure TTranPanel.Paint;
begin
  if FBorder or (csDesigning in ComponentState) then
  begin
    Canvas.Brush.Color := clBtnShadow;
    Canvas.FrameRect(ClientRect);
  end;
end;

procedure TTranpanel.SetBorder(Value: Boolean);
begin
  if Value <> FBorder then
  begin
    FBorder := Value;
    Invalidate;
  end;
end;

end.

Jens B

Den virker ikke når man har et panel i et panel!!? :/

http://www.lawrenz.com/coolform/download.htm

Du kan kun få et transparent panel eller form på en windows 2000/xp.
//dl

dl>> Det er ikke rigtigt mit panel burde da også virke på win9X.

Jens B

borrisholt >> hyar lige set på din hjemmeside. Og det ser ikke pæn ud på min Windows XP computer. Alle tingne er meget små og ligger oppe i venstre side af skræmen.

//dl

>>Borrisholt,
Har også problemer med at se din side, med både W-2K, W-XP, MS-IE 6 og Netscape 7.0. Netscape presser det hele op til venstre og IE laver en smal stribe.  Det har været sådan ca. 1 årstid. Men har dog en maskine på arbejde, hvor der ingen problemer er med at se siden ???

:)