Форум: "Начинающим";
Текущий архив: 2017.02.12;
Скачать: [xml.tar.bz2];
ВнизКак переместить форму Найти похожие ветки
← →
pavelnk © (2015-06-09 11:55) [0]Такая проблема, отключил у формы бардюр (bsNone), теперь не знаю как её таскать. Подскажите пожалуйста как мне сделать правильно, чтобы велосипед не изобретать.
← →
Pavelnk © (2015-06-09 12:13) [1]Всё, спасибо, нашёл сам -
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Form1.perform(WM_SysCommand,$F012,0);
end;
← →
sniknik © (2015-06-09 12:39) [2]
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
if Message.Result = HTCLIENT then
Message.Result := HTCAPTION;
end;
← →
Игорь Шевченко © (2015-06-09 14:01) [3]
> Всё, спасибо, нашёл сам
Не надо такое использовать
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2017.02.12;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.001 c