Komponent der kan lave formen om på en form evt. gennemsigtig

Kig på www.torry.net under fanebladet vcl i toppen af siden

Hvad er det lige du vil?!?

Jeg vil kunne lave fed grafik :-)

http://www.delphipages.com/result.cfm?ID=2887

http://www.delphipages.com/result.cfm?ID=585

du behøver ikke have et component for at lave sjove forme:

gennemsigtig form:

procedure TForm1.FormCreate(Sender: TObject);
begin
    Form1.Brush.Style := bsClear;
    Form1.BorderStyle := bsNone
end;

femkantet form:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons;

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    FRegion: THandle;
    procedure FreeRegion;
public
  procedure CreateParams(var Params: TCreateParams); override;
end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := WS_POPUP or WS_BORDER and not WS_MINIMIZE;
end;

procedure TForm1.FreeRegion;
begin
  if FRegion <> 0 then
  begin
    SetWindowRgn(Handle, 0, True);
    DeleteObject(FRegion);
    FRegion := 0;
  end;
end;



procedure TForm1.FormCreate(Sender: TObject);
type
  TPointsArray = array[0..4] of TPoint;

var
  pa: TPointsArray;
begin
  FreeRegion;

  with ClientRect do
  begin
    pa[0] := Point(Left + 50, Bottom);
    pa[1] := Point(Left + 1, Top + Bottom div 2);
    pa[2] := Point(Left + Right div 2, Top);
    pa[3] := Point(Right, Top + Bottom div 2);
    pa[4] := Point(Right - 50, Bottom);

    FRegion := CreatePolygonRgn(pa, 5, ALTERNATE);
  end;

  if FRegion <> 0 then
    SetWindowRgn(Handle, FRegion, True);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Close;
end;

end.

I Delphi 6 kan du lave formen halvgennemsigtig (virker kun til w2k og frem)...

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.AlphaBlend := TRUE;
  Self.AplhaBlendValue := 128;
end;

du kan også gøre det med andre programmer :)

/ZIRON

>>ziron
Har du ikke lige lyst til at lave et hurtigt eksempel med det? :)

procedure TMainForm.DoInvisible;
var
  AControl : TControl;
  A, Margin, X, Y, CtlX, CtlY : Integer;
begin
  Margin := ( Width - ClientWidth ) div 2;
  FullRgn := CreateRectRgn(0, 0, Width, Height);
  X := Margin;
  Y := Height - ClientHeight - Margin;
  ClientRgn := CreateRectRgn( X, Y, X + ClientWidth, Y + ClientHeight );
  CombineRgn( FullRgn, FullRgn, ClientRgn, RGN_DIFF );

  for A := 0 to ControlCount - 1 do begin
    AControl := Controls[A];
    if ( AControl is TWinControl ) or ( AControl is TGraphicControl )
        then with AControl do begin
      if Visible then begin
        CtlX := X + Left;
        CtlY := Y + Top;
        CtlRgn := CreateRectRgn( CtlX, CtlY, CtlX + Width, CtlY + Height );
        CombineRgn( FullRgn, FullRgn, CtlRgn, RGN_OR );
      end;
    end;
  end;
  SetWindowRgn(Handle, FullRgn, TRUE);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  DoInvisible;
end;

hermandsen >> kig her engang har haft det en gang før :)

http://www.eksperten.dk/spm/161442

/ZIRON

http://www.lawrenz.com/coolform/download.htm
Mem at bruge komponent til form gynmastik

lukker