Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Ms.Drynkul © (2004-09-03 09:02:00)
В 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;
----------------------------------------
но происходят ошибки при компиляции.

Ms.Drynkul (2004-09-03 14:41:00) [1]
Спасибо,дорохые мои!

TUser (2004-09-03 14:17:00) [2]
> менять htClient на htCaption, считаю извращением!
Считайте. А мы будет пользоваться.

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

MetalFan (2004-09-03 12:13:00) [3]
стаарый пример. есть в куче мест.
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;

BillyJeans (2004-09-03 11:13:00) [4]
2 clickmaker © (03.09.04 11:00) [3]

ну ну...

clickmaker (2004-09-03 11:00:00) [5]

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

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

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

КаПиБаРа (2004-09-03 09:32:00) [7]
Ms.Drynkul (03.09.04 9:02)
wm_NCHitTest

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »