Текущий архив: 2007.10.07;
Скачать: CL | DM;
Вниз
Местоположение формы Найти похожие ветки
← →
Washington © (2007-09-12 10:14) [0]Как запретить изменение местоположения формы без использования borderstyle?
← →
Вася Правильный (2007-09-12 10:47) [1]ты извращенец какой-то
то тебе размеры запретить без изменения стиля краев, то системные кнопки отключить, то сдвиг
и все ради какого-то галимого компонента скинов, который запрещает borderstyle
← →
Lacmus © (2007-09-12 10:53) [2]>Washington © (12.09.07 10:14)
procedure CreateHandle; override;
end;
var
Form54: TForm54;
implementation
{$R *.dfm}
procedure TForm54.CreateHandle;
begin
inherited;
DeleteMenu(GetSystemMenu(Handle, False), SC_MOVE, MF_BYCOMMAND)
end;
← →
Washington © (2007-09-12 11:17) [3]
> Lacmus © (12.09.07 10:53) [2]
А форма то всё равно двигается
← →
Anatoly Podgoretsky © (2007-09-12 11:33) [4]Изучать ВинАПИ, стили окон, сообщения - сделаешь все.
← →
Washington © (2007-09-12 11:34) [5]
> Anatoly Podgoretsky © (12.09.07 11:33) [4]
Как раз скачал русский хелп. Сяду читать. Спасибо
← →
Denis_ © (2007-09-12 12:53) [6]
> Сяду читать. Спасибо
А писал всё время стоя?
← →
Denis_ © (2007-09-12 12:54) [7]ЗЫ писАл :))
← →
Washington © (2007-09-12 13:58) [8]
> А писал всё время стоя?
ага
← →
MsGuns © (2007-09-12 22:05) [9]Один из вариантов:
public
...
StartPoint: TPoint;
procedure ChangePosition(var Msg: TMessage); message WM_WINDOWPOSCHANGING;
implementation
procedure TForm1.FormShow(Sender: TObject);
begin
StartPoint.X := Left;
StartPoint.Y := Top;
end;
procedure TForm1.ChangePosition(var Msg: TMessage);
begin
Left := StartPoint.X;
Top := StartPoint.Y;
Abort;
end;
← →
MsGuns © (2007-09-12 22:24) [10]Правда не без "кривизны" ;)
← →
Альф (2007-09-13 08:58) [11]Такая программа сразу же улетит в корзину...
Без обид :)
← →
Anatoly Podgoretsky © (2007-09-13 09:11) [12]А можно и с обидами.
← →
grisme © (2007-09-13 09:37) [13]ловить WM_NCHITTEST и на некоторые флаги нилить
Страницы: 1 вся ветка
Текущий архив: 2007.10.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.043 c
