Форма без фона

[Nater]

Здраствуйте, необходимо сделать форму без фона ( не прям прозрачную , а чтобы фон был как края самой формы)
ну вот как в opera :

http://i068.radikal.ru/1008/98/0a2c9bf72f47.png


но, каким образом это сделать?

[Stilet]

а чтобы фон был как края самой формы

Пока не понятно но... Попробуй компонент AlphaSkins

[Nater]

Ниже ссылка, переходи и всё сразу станет понятно. Alphaskins не походит.

[Arigato]

В Опере интерфейс вручную отрисовывается.

[Kotofff]

Сообщение от Nater

Alphaskins не походит.

Это еще почему ?
В них как раз реализовано почти так же как на твоем рисунке !
Ты все Alpha-скины просматривал ?

[Nater]

AlphaSkins может быть и подошел бы, но это много возьни и я видел как-то топик где человек переделал стандартный диалог ( кажись MessageBox ) подобным образом (без фона). Жаль забыл , где видел ))

[dmitriegorovih]

Ну тогда UpdateLayeredWindow вам в руки

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,pngimage;

type
  pRGBQuadArray = ^TRGBQuadArray;
  TRGBQuadArray = array [WORD] of TRGBQuad;
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   x1,y1:integer;
   m:TMouse;
   b:boolean;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  DC: HDC;
  WS: Cardinal;
  R: TRect;
  i, j: integer;
  Row: pRGBQuadArray;
  PNGAlpha: pByteArray;
  Blend: TBlendFunction;
  BmpSize: TSize;
  TopLeft, BmpTopLeft: TPoint;
  FWorkPNG: TPNGObject;
  FWorkBMP: TBitmap;
begin
  Form1.BorderStyle:=bsNone;
  WS := GetWindowLong(Self.Handle, GWL_EXSTYLE);
  SetWindowLong(Self.Handle, GWL_EXSTYLE, WS or WS_EX_LAYERED);
  SetWindowLong(Self.Handle, GWL_EXSTYLE, WS_EX_LAYERED);

  GetWindowRect(Self.Handle, R);
  TopLeft.X := R.Left;
  TopLeft.Y := R.Top;

  BmpTopLeft := Point(0, 0);

  FWorkPNG := TPNGObject.Create;
  FWorkPNG.LoadFromFile('D:\2.png'); //Загрузка PNG картинки из файла

  BmpSize.cx := FWorkPNG.Width;
  BmpSize.cy := FWorkPNG.Height;

  FWorkBMP := TBitmap.Create;
  FWorkBMP.PixelFormat := pf32Bit;
  FWorkBMP.Width := BmpSize.cx;
  FWorkBMP.Height := BmpSize.cy;
  FWorkBMP.Canvas.Draw(0, 0, FWorkPNG);

  for i := 0 to FWorkBMP.Height - 1 do
  begin
    Row := FWorkBMP.Scanline[i];
    PNGAlpha := FWorkPNG.AlphaScanline[i];
    for j := 0 to FWorkBMP.Width - 1 do
    begin
      Row[j].rgbReserved := PNGAlpha[j];
      Row[j].rgbBlue := Round(Row[j].rgbBlue * Row[j].rgbReserved / 255);
      Row[j].rgbGreen := Round(Row[j].rgbGreen * Row[j].rgbReserved / 255);
      Row[j].rgbRed := Round(Row[j].rgbRed * Row[j].rgbReserved / 255);
    end;
  end;

  DC := GetDC(0);

  with Blend do
  begin
    BlendOp := AC_SRC_OVER;
    BlendFlags := 0;
    SourceConstantAlpha := 255;
    AlphaFormat := AC_SRC_ALPHA;
  end;
  
  UpdateLayeredWindow(Self.Handle, DC, @TopLeft, @BmpSize,
    FWorkBMP.Canvas.Handle, @BmpTopLeft, clNone, @Blend, ULW_ALPHA);

  ReleaseDC(0, DC);
  FWorkPNG.Free;
  FWorkBMP.Free;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if b then begin
 Form1.Left:=m.CursorPos.x-x1;
    Form1.Top:=m.CursorPos.y-y1;
    end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
x1:=x;
y1:=y;
b:=true;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
b:=false;
end;

end.

[Nater]

спасибо конечно , но это не то ))

если не понятно что я хочу , то вот например у Media Player в висте присутсвует такой эффект - там все кнопки какбы за пределами самой формы , на рамке которая внизу расширена , вот мне нужно сам фон убрать , а эту рамку на всю форму сделать.

[DomiNick]

Если я правильно понял что вы хотите, то это делается через апи-функции Аэро (DwmApi.pas)...
Какая у вас версия Делфи?

[ZuBy]

пост выше в точку!
если d2009 или выше то можно сделать через vcl (свойство формы GlassFrame) или же использовать вот это