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

Как таскать форму за ее поверхность?   Найти похожие ветки 

← →
Ms.Drynkul   (2004-09-03 09:02) [0]

В Delphi Russian Knowledge Base было следующее:
----------------------------------------
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;
----------------------------------------
но происходят ошибки при компиляции.

---

← →
КаПиБаРа ©   (2004-09-03 09:32) [1]

Ms.Drynkul   (03.09.04 9:02)
wm_NCHitTest


===================================
На запрос "арфаграфический славарь"
найдено 1887212 ссылок...
===================================


---

← →
BillyJeans   (2004-09-03 10:26) [2]

менять htClient на htCaption, считаю извращением!
А если на форме контролы тогда что?

---

← →
clickmaker ©   (2004-09-03 11:00) [3]

> [2] BillyJeans   (03.09.04 10:26)
> менять htClient на htCaption, считаю извращением!
> А если на форме контролы тогда что?

если на форме контролы мышинные сообщения попадут прямо к ним

---

← →
BillyJeans   (2004-09-03 11:13) [4]

2 clickmaker ©   (03.09.04 11:00) [3]

ну ну...

---

← →
MetalFan ©   (2004-09-03 12:13) [5]

стаарый пример. есть в куче мест.
procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
const
 SC_DragMove = $F012; { a magic number }
begin
 ReleaseCapture;
 Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;

---

← →
TUser ©   (2004-09-03 14:17) [6]

> менять htClient на htCaption, считаю извращением!
Считайте. А мы будет пользоваться.

PS. Разнообразие интерфейса безгранично.

---

← →
Ms.Drynkul   (2004-09-03 14:41) [7]

Спасибо,дорохые мои!

---

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

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



Память: 0.46 MB
Время: 0.02 c