Форум: "Основная";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];
ВнизОкна в Delphi Найти похожие ветки
← →
Ренат (2002-07-03 11:59) [0]Как под Delphi сделать так чтоб окна были неперетаскиваемые и у них небыло верхней полосы?
← →
Игорь Шевченко (2002-07-03 12:02) [1]Form.BorderStyle := bsNone
← →
Ренат (2002-07-03 13:50) [2]Да но только в данном случае окно размещаетсяв верхнем левом углу и не передвигается програмно, а нужно чтоб передвигалась...
← →
DeMoN-777 (2002-07-03 14:46) [3]Например так..........
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012;
begin
if button=mbleft then
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;
end;
← →
Игорь Шевченко (2002-07-03 16:36) [4]Form.Left := xxx
Form.Top := xxx
или установить Position := poDesigned и в design-time расположить форму в любом понравившемся месте
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.017 c