Окна в 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;

Form.Left := xxx
Form.Top := xxx
или установить Position := poDesigned и в design-time расположить форму в любом понравившемся месте

Окна в Delphi Найти похожие ветки