Скачать: CL | DM;

таскание формы без головы   Найти похожие ветки 

← →
acidman   (2004-01-19 11:23) [0]

Вопрос в следующем , я создаю форму типа none , не имеющая заголовка

как мне сделать так чтобы можно было таскать форму за любой компонент?

а то она как скреетилась так и хрен сдвинеш?

жду ответа!!!! за рание спасибо!!!

---

← →
alless ©   (2004-01-19 11:33) [1]

type

TForm1 = class(TForm)
private

public

procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
end;

var

Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin

inherited;                   { вызов унаследованного обработчика события   }
if M.Result = htClient then  { кликнув в области окна?                     }
M.Result := htCaption;     { если так, то мы заставили Windows думать,   }
{ что щелчок был на заголовке окна.           }
end;

---

← →
easy ©   (2004-01-19 11:56) [2]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  
  Shift: TShiftState; X, Y: Integer);  

begin  
 ReleaseCapture();  
 SendMessage(form1.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);  
end;

---

← →
tp   (2004-01-19 17:11) [3]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 ReleaseCapture;
 SendMessage(Form1.Handle, wm_SysCommand,$f012,0);
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c