Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];
Вниз
Ограничение по перемещению формы Найти похожие ветки
← →
MARcoDEN (2003-02-04 12:22) [0]Доброго времени суток, мастера! У меня к вам такой вопрос: как сделать так, чтобы пользователь мог перемещать форму только по вертикали, т.е. либо вверх, либо вниз? Желательно с примером!
Заранее благодарен!
С уважением,
MARcoDEN
← →
Романов Р.В. (2003-02-04 13:02) [1]TForm1 = class(TForm)
private
procedure WMMOVING(var Msg: TMessage); message WM_MOVING;
procedure TForm1.WMMOVING(var Msg: TMessage);
begin
PRect(Msg.LParam)^.Left := Left;
PRect(Msg.LParam)^.Right := Width + Left;
end;
← →
MARcoDEN (2003-02-06 10:05) [2]2 Романов Р.В.:
Премного благодарен!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c
