Snowy зачем так сложно? 
asset_s береш панел (TPanel) бросаеш его на форму. На панель бросаеш TImage. Ну и конечно... загрузи в него какую нить картинку.
Подцепляеш на OnCreate формы вот енто:| Код | procedure TForm1.FormCreate(Sender: TObject);
var Style:integer;
begin
Panel1.Align:=alNone;
Style:=GetWindowLong(Panel1.Handle,GWL_Style);
Style:=Style or WS_THICKFRAME;
SetWindowLong(Panel1.Handle,GWL_Style,Style);
SetWindowPos(Panel1.Handle,HWND_TOP,Panel1.Left,Panel1.Top,
Panel1.Width,Panel1.Height,SWP_FRAMECHANGED);
Image1.AutoSize:=false;
Image1.Align:=alClient;
Image1.Stretch:=true;
end; |
Ну и так... до кучи :| Код | procedure TForm1.Button1Click(Sender: TObject);
var Style:integer;
begin
Style:=GetWindowLong(Panel1.Handle,GWL_Style);
Style:=Style or WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SYSMENU
or WS_BORDER or WS_DLGFRAME or WS_THICKFRAME;
SetWindowLong(Panel1.Handle,GWL_Style,Style);
SetWindowPos(Panel1.Handle,HWND_TOP,Panel1.Left,Panel1.Top,
Panel1.Width,Panel1.Height,SWP_FRAMECHANGED);
PostMessage(Panel1.Handle,WM_SetIcon,0,Application.Icon.Handle);
end; |
PS: asset_s твой вопрос... не для ентого раздела |