Delphi отключения редактирования

[OTGB]

Ребята есть 2 формы. На 1 форме содержится 2 эдита и три баттона. Хочу сделать так когда вводишь у меня заходит на 2 форму и там доступно редактирование. А если нажать на кнопку "зайти для просмотра" то он открывал 2 форму но уже без редактирования(точнее на 2 форме можно только смотреть информацию.
программа (https://dropmefiles.com/X2GPX)

[evg_m]

используй св-ва компонентов
ReadOnly
Enabled

устанавливай (задавай их значения) в зависимости от варианта входа.

А если нажать на кнопку "зайти для просмотра"

[OTGB]

evg_m прописал на кнопку

form1.DBGrid1.ReadOnly:=FALSE;
form1.Button1.Visible:=False ;
Form1.N1.Enabled := False;

теперь программа отказывается запускаться.

[OTGB]

Сам код на кнопку.

procedure TForm10.Button3Click(Sender: TObject);
begin

form1.DBGrid1.ReadOnly:=FALSE;
form1.Button1.Visible:=False ;
Form1.N1.Enabled := False;

Form10.Hide;
Form1.Show;
end;

[evg_m]

так устанавливать надо не для компонентов главной формы и не кнопок, а компонентов РЕДАКТИРОВАНИЯ у ДРУГОЙ формы (той которую хотите показывать)

form10.EditX.Enabled:=true; // мы МОЖЕМ корректировать
form10.ShowModal;

form10.EditX.Enabled:=false; // мы ТОЛЬКО посмотрим!!!!
form10.ShowModal;

и никаких действий с Form1 в form10 не будет нужно!!!.

[Dvoishnik]

evg_m form10 главная в проекте
OTGB как выглядит отказ??

П.С. вы в курсе что вы лишаете пользователя возможности закрыть программу??
по onClose делайте видимой предыдущую форму
а на onClose Form1 либо

Application.Terminate

либо

Foкm10.Close

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

[OTGB]

Dvoishnik Вроде бы у вас не было их. 0_-

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

[Dvoishnik]

будете тестить программу найдете. там пары строк не хватает.

[OTGB]

Dvoishnik спасибо.) Всё работает.