image1

[prod87]

Подскажите как сделать так, что бы нажимая на кокой то элемент(непример image1) я мог перемешать форму?

И еще вопрос. Как добавить запись в процедуру закрытия формы (крестик на шапке формы)?

[Terran]

Подскажите как сделать так, что бы нажимая на кокой то элемент(непример image1) я мог перемешать форму?

(Если нужно, то можете сделать проверку над чем находится курсор)

Public
    { Public declarations }
    Procedure WMNCHitTest(Var M: TWMNCHitTest);
    Message WM_NCHitTest;
...
Procedure TForm1.WMNCHitTest(Var M: TWMNCHitTest);
Begin
Inherited;
If M.Result = HtClient Then
M.Result:=HtCaption;
End;

И еще вопрос. Как добавить запись в процедуру закрытия формы (крестик на шапке формы)?

Procedure TForm1.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin
//Процедура закрытия
End;

[DomiNick]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012;
begin
ReleaseCapture;
Form1.perform(WM_SysCommand,SC_DragMove,0);
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012;
begin
ReleaseCapture;
Form1.perform(WM_SysCommand,SC_DragMove,0);
end;