Окна

[T.O.M.]

Доброго времени суток.
У меня такой вопрос: программа имеет немало окон, но они зависимы друг от друга, т.е. некоторые окна являются диалоговыми и вызываются с других, и пока они открыты, имеет смысл заблокировать доступ к тем окнам, с которых они вызываются. Другими словами, как сделать так, чтобы, пока открыто это диалоговое окно, пользователь не мог перескочить на родительское (тем самым может его затерять за родительским или просто не получить нужные данные).

[Berg]

Просто использовать для отображения формы метод ShowModal (); на сколько мне понится ...
Вызов формы методом ShowModal блокирует окна остальные до закрытия текущего.

[T.O.M.]

Спасибо, попробуем.

[T.O.M.]

Еще один вопрос - как убрать в заголовке окна кнопки свертывания окна и развертываения его на весь экран (те, что в правом верхнем углу ) и запретить возможность изменять размер окна растягиванием?

[Berg]

Это все в панеле свойств задается ... Не помню точно названий свойств Лет 5 как не программил на Делфях .. Но если не найдете и сильно надо надо - могу запустить как нить и уточнить

[T.O.M.]

Нет, спасибо, я ужо нашол
Для запрета изменения размеров нужно свойству BorderStyle в инспекторе присвоить значение bsSingle.
А чтобы убрать кнопки в углу, нашел нехитрый кусок кода

Код: выделить все

procedure TForm1.FormCreate(Sender: TObject);
var
   l: DWORD;
begin
   l := GetWindowLong(Self.Handle, GWL_STYLE);
   l := l and not (WS_MINIMIZEBOX);
   l := l and not (WS_MAXIMIZEBOX);
   l := SetWindowLong(Self.Handle, GWL_STYLE, l);
end;

Ну это информация для тех, кому может вдруг понадобится.

[Moonlight]

Можно в свойстве BorderIcons формы отключить пункты biMinimize и biMaximize )

[T.O.M.]

Спасибо! Вариант! Учту