Как убрать шапку окна

[Vol666]

Хм странно, я думал можно убрать верхнюю полоску вот скринчик, как я это подразумеваю. Верхню рамочку убрать, так которым красным зарисована...

[0nni]

Только если регионами ее отсекать.

[betirsolt]

кидаешь на форму timage и загружаешь туда картинку(форма будет такой же как и эта фотография которую ты загрузил)и напиши такой код

function CreateRgnFromBitmap(rgnBitmap: TBitmap): HRGN;
var
TransColor: TColor;
i, j: Integer;
i_width, i_height: Integer;
i_left, i_right: Integer;
rectRgn:HRGN;
begin
Result := 0;
//Запоминаем размеры окна
i_width := rgnBitmap.Width;
i_height := rgnBitmap.Height;
//Определяем прозрачный цвет
  transColor := rgnBitmap.Canvas.Pixels[0, 0];
//Запускаем цикл перебора строк картинки
//для определения области окна без фона
for i := 0 to i_height - 1 do
begin
i_left := -1;
//Запускаем цикл перебора столбцов картинки
for j := 0 to i_width - 1 do
begin
if i_left < 0 then
begin
if rgnBitmap.Canvas.Pixels[j, i] <> transColor then
i_left := j;
end
else
if rgnBitmap.Canvas.Pixels[j, i] = transColor then
begin
i_right := j;
rectRgn := CreateRectRgn(i_left, i, i_right, i + 1) ;
if Result = 0 then
Result := rectRgn
else
begin
CombineRgn(Result, Result, rectRgn, RGN_OR);
DeleteObject(rectRgn);
end;
i_left := -1;
end;
end;
if i_left >= 0 then
begin
rectRgn := CreateRectRgn(i_left, i, i_width, i + 1);
if Result = 0 then
Result := rectRgn
else
begin
CombineRgn(Result, Result, rectRgn, RGN_OR);
DeleteObject(rectRgn);
end;
end;
end ;
end;

procedure TForm1.FormCreate(Sender: TObject);
var WindowRgn: HRGN;
begin
 BorderStyle := bsNone;
clientWidth := Image1. Picture.Bitmap.Width;
ClientHeight := Image1.Picture.Bitmap.Height;
windowRgn := CreateRgnFromBitmap(Image1.Picture.Bitmap);
SetWindowRgn(Handle, WindowRgn, True);
dragging:=false;
end;

что то у меня с вложениями проблема..надеюсь разберешься