Блокировка окон

[crit]

Будьте любезны подскажите как заблокировать растяжение формы, как заблокировать внизу в панели задачи у приложения " закрыть", и третье: и как заблокировать главное окно формы пока не закроется другое окно,тоесть нажал на кнопку на главной форме открылось 2рое окно,и пока оно не закроется по кнопке ,главное окно было бы заблокировано

[Levsha100]

1)Поиграйся с BorderStyle.
3)Form2.ShowModal;

[Terran]

Будьте любезны подскажите как заблокировать растяжение формы

Form1.BorderStyle:=BsSingle;

и третье: и как заблокировать главное окно формы пока не закроется другое окно,тоесть нажал на кнопку на главной форме открылось 2рое окно,и пока оно не закроется по кнопке ,главное окно было бы заблокировано

Вызывайте второе окно модально т.е.

Form2.ShowModal;

-------------------
Немного не успел...

[crit]

спасибо=) а насчет 2го что скажете господа программеры

[Terran]

Сообщение от crit

спасибо=) а насчет 2го что скажете господа программеры

Можно сделать так:

Procedure TForm1.Button1Click(Sender: TObject);
Var
HwndHandle: THANDLE;
HMenuHandle: HMENU;
Begin
HwndHandle:=FindWindow(Nil,'Project1');
If (HwndHandle <> 0) Then
Begin
HMenuHandle:=GetSystemMenu(hwndHandle,false);
If hMenuHandle <> 0 Then
Begin
DeleteMenu (HMenuHandle, SC_CLOSE, MF_BYCOMMAND);
//Не удалял. Может пригодиться
{DeleteMenu (HMenuHandle, SC_MINIMIZE, MF_BYCOMMAND);
DeleteMenu (HMenuHandle, SC_MAXIMIZE, MF_BYCOMMAND);    }
End;
End;
End;

В этом коде много лишнего. Можно его хорошо оптимизировать, но это уже на ваше усмотрение.

[crit]

отлично! то что надо! благодарю!

[crit]

только вот еще вопрос вот это т код можно как то на все формы сделать?? а то не буду же я на кажой форме писать этот код. можно как то?

[Terran]

А у вас формы от разных приложений или от одного?

[crit]

одного.. или этот код действует не на одну форму а на проект в целом?

[Terran]

одного.. или этот код действует не на одну форму а на проект в целом?

Если уберёте у главной формы эту менюшку, то она уберётся во всём проекте.
Для своего проекта лучше сделать так:

Procedure TForm1.FormCreate(Sender: TObject);
Var
HMenuHandle: HMENU;
Begin
HMenuHandle:=GetSystemMenu(Application.Handle,False);
If HMenuHandle <> 0 Then
Begin
DeleteMenu (HMenuHandle,SC_CLOSE,MF_BYCOMMAND);
End;
End;