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

[BOBAH13]

Ну народ насочиняли блин ))) DWM вам надо изучать, вот так и сделано то как вы на рисунке нарисовали.

[Nater]

Да, спасибо , все работает ! после того как порылся по инету и узнал что такое Dmwapi и с чем его есть , написал быстренько вот такой вот кодец: если кому надо - юзайте.

uses DwmApi, UxTheme

...

procedure TMainForm.FormCreate(Sender: TObject);
var
mgn : _Margins;
begin
mgn.cxLeftWidth := -1;
mgn.cxRightWidth := -1;
mgn.cyTopHeight := -1;
mgn.cyBottomHeight := -1;
DwmExtendFrameIntoClientArea(Handle, mgn);
end;

Свойство color ставим в clBlack;

Результат :

[DjDram]

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

Да, спасибо , все работает ! после того как порылся по инету и узнал что такое Dmwapi и с чем его есть , написал быстренько вот такой вот кодец: если кому надо - юзайте.

uses DwmApi, UxTheme

...

procedure TMainForm.FormCreate(Sender: TObject);
var
mgn : _Margins;
begin
mgn.cxLeftWidth := -1;
mgn.cxRightWidth := -1;
mgn.cyTopHeight := -1;
mgn.cyBottomHeight := -1;
DwmExtendFrameIntoClientArea(Handle, mgn);
end;

Свойство color ставим в clBlack;

Результат :

на какой дельфе 2010 или 7 ? работает?