| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Окна в Delphi [D5, D6, Win95/98]

Ренат ©   (2002-07-03 11:59:00) 

Как под Delphi сделать так чтоб окна были неперетаскиваемые и у них небыло верхней полосы?

---

Игорь Шевченко   (2002-07-03 16:36:00) [1]

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

---

DeMoN-777   (2002-07-03 14:46:00) [2]

Например так..........
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 13:50:00) [3]

Да но только в данном случае окно размещаетсяв верхнем левом углу и не передвигается програмно, а нужно чтоб передвигалась...

---

Игорь Шевченко   (2002-07-03 12:02:00) [4]

Form.BorderStyle := bsNone

---

Наверх