Нужно осуществить перемещение формы, но заголовок у формы отсутствует.
В DRKB был представлен код
| Код |
unit DragMain;
interface
uses
SysUtils, WinTypes, WinProcs, Messages,
Classes, Graphics, Controls, Forms, Dialogs, StdCrtls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure ButtonClick(Sender: TObject);
private
procedure WMNCHitTest(var M: TWMNCHitTest);
message wm_NCCHitTest;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1. WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if M.Result = htClient then
M.Result := htCaption;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
end.
|
но у меня постоянно возникает ошибка в строке
| Код |
message wm_NCCHitTest;
|
если эту строку выкинуть, то ошибка пропадает, но и перемещение за поверхность не происходит. Я с Дельфи не так уж давно, так что в коде ничего не понял. Может есть другие варианты осуществления данного действия? |
)