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

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

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

Как запретить двигать форму? [D6, Win2k]

Страницы: < 1 2
Бегун © (2004-04-28 18:14:00)
subj

Игорь Шевченко (2004-04-28 18:52:00) [21]
Gero © (28.04.04 18:19)

WM_MOVE - это нотификационное сообщение (уведомление об изменении позиции)

Бегун (28.04.04 18:41)

WM_WINDOWPOSCHANGING

" An application can prevent changes to the window by setting or clearing the appropriate bits in the flags member of WINDOWPOS. "

Бегун (2004-04-28 18:41:00) [22]
>Gero © (28.04.04 18:36) [7]

Такое решение имеет место быть :)

А что-бы не убирать заголовок?

Gero (2004-04-28 18:36:00) [23]
Уберите у формы заголовок.
И тогда юзер ее двигать не сможет.

Бегун (2004-04-28 18:29:00) [24]
>Gero © (28.04.04 18:25) [5]

Все равно мигает, когда пытаюсь передвинуть.
Хочу что-бы не мигало, когда пытаюсь передвинуть.

Gero (2004-04-28 18:25:00) [25]
M.Result := 0;

Бегун (2004-04-28 18:23:00) [26]
procedure TfrmAdd.WMMove(var m: TMessage);
begin
frmAdd.Left:=100;
frmAdd.Top:=100;
end;

Так мигает :(

Бегун (2004-04-28 18:21:00) [27]
Это понятно.

type
TfrmAdd = class(TForm)
public
procedure WMMove(var m: TMessage); message WM_MOVE;
end;

procedure TfrmAdd.WMMove(var m: TMessage);
begin
А ЧТО ЗДЕСЬ ПИСАТЬ?
end;

Gero (2004-04-28 18:19:00) [28]
Да, забыл сказать, это надо в WM_MOVE писать...

Gero (2004-04-28 18:18:00) [29]
ShowMessage('Форму двигать запрещено! За нарушение - штраф 1000$!');

Страницы: < 1 2

Наверх

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