form

← →
Ибрагим (2006-04-14 19:06) [0]

открываю форм2,но при нажатии на форм1,форм два остаетсья сзади,а как сделать так чтобы пока не закроешь форм2,к перфой форме доступа не было?
фопрос дурацкий,но без этого фигово,подскажите

← →
kester © (2006-04-14 19:22) [1]

procedure TForm2.FormCreate(Sender: TObject); begin form2.FormStyle:=fsStayOnTop; end;
ну или в Object Inspector со свойством "FormStyle" у формы поиграйся. Ну и естественно, Enabled тоже тебе помощник, если тебе надо вообще отключить действия с формой.

← →
Virgo_Style © (2006-04-14 19:41) [2]

.ShowModal

procedure TForm1.FormShow(Sender: TObject);
begin
Form1.Enabled:=false;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Enabled:=true;
end;

form Найти похожие ветки