Перетаскивание окна

[Freedom]

Как перетаскивать окно за любое место, если на форме установлена картинка на всю форму???

[John_chek]

Не корректный вопрос! Что зачем не понятно??!

[BOBAH13]

обрабатывай MouseDown твоей картинки

ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);

пока лучшего решения не нашел...

[Noor]

Есть компоненты в дополнительныйх библиотеках, при работе с которыми отпадает всякие вопросы такого рода. Если нужно то завтра скажу что за библиотека и что за компонент !!!

[Квэнди]

.....
public
procedure WMNCHITTEST(var Msg: TMessage); message WM_NCHITTEST;
.....

procedure Tform.WMNCHITTEST(var Msg: TMessage);
begin
inherited;
Msg.Result := HTCAPTION;
end;
................
procedure Tform.FormCreate(Sender: TObject);
begin
SetWindowLong(Handle, GWL_STYLE,
GETWINDOWLONG(Handle, GWL_STYLE) and (not WS_CAPTION));
Height := ClientHeight;
end;

[BOBAH13]

Сообщение от Квэнди

.....
public
procedure WMNCHITTEST(var Msg: TMessage); message WM_NCHITTEST;
.....

procedure Tform.WMNCHITTEST(var Msg: TMessage);
begin
inherited;
Msg.Result := HTCAPTION;
end;
................
procedure Tform.FormCreate(Sender: TObject);
begin
SetWindowLong(Handle, GWL_STYLE,
GETWINDOWLONG(Handle, GWL_STYLE) and (not WS_CAPTION));
Height := ClientHeight;
end;

я думаю это немного не то ))) там говорится "картинке на фоне" а этот код только для любого места формы

[Romanus]

procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);
const
SC_DRAGMOVE : Longint = $F012;
begin
if Button <> mbRight then
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
end;
Используй в любом компоненте за которого ты хочешь тягать форму

[mihali4]

procedure Tfmain.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform (WM_SYSCOMMAND,SC_MOVE+2,0);
end;

Работает чудно. На любом компоненте.

[Noor]

Можно использовать уже готовые компоненты из SuiPack(suiSkinForm) или,
RaizeComponents v.4.0.3 (закладка RaizeWidgets - RzFormShape)

[Квэнди]

кто мешает в приведеном коде поменять handle на нужный ?