Не дает выключить форму

[Аватар]

это все таки функция

Я не зря упомянул. Манул кури. OnClose тоже отрабатывает не зависимо от способа выхода. Как там собирался анализировать?

[FleXik]

Я не зря упомянул. Манул кури. OnClose тоже отрабатывает не зависимо от способа выхода. Как там собирался анализировать?

хз как анализировать, но, мне интересно почему оно выбивает ошибку на OnClose и OnHide, реализация на OnClose или OnHide и есть правильной.

[Аватар]

По твоему коду не видно почему. Гадание на кофейной гуще

[FleXik]

Аватар, ща максимально подробно опишу проблему и дам код, жди

Значит так, есть два sRadioButton

procedure TForm1.sRadioButton2Click(Sender: TObject);
begin
  Form3.ShowModal;
  //Form3.sEdit1.Clear;

  if Form3.sButton2.Tag=1 then
  Form1.sRadioButton1.Checked:=True;

end;

procedure TForm3.sButton1Click(Sender: TObject);
begin

    if Form3.sEdit1.Text<>'' then
    Form3.Close;
    
  Form3.sButton2.Tag:=0;
  Form1.sRadioButton2.Checked:=True;
end;

procedure TForm3.sButton2Click(Sender: TObject);
begin
  Form3.sButton2.Tag:=1;
  Form3.sEdit1.Clear;
  Form3.Close;
end;

Задача:
1. Если нажата кнопка "Отмена" или нажат красный крестик - Form1.sRadioButton1.Checked:=True; + поле sEdit1 стирается
2. Если поле sEdit1 не пустое (выше в коде проверка) и нажата кнопка "ОК" - Form1.sRadioButton2.Checked:=True;

Все просто, проще не куда, логично было бы сделать именно на OnClose или OnHide т.к по сути другого решения проблемы я не вижу.


P.S на скрине Form1 это Form3 (просто з нуля накидал по-быстрому, в проэкте у меня это окно - Form3)

[Аватар]

У-у. Стремление к нулю. sButton2Click не нужен. Сделай sButton2.ModalResult:=mrCancel

procedure TForm1.sRadioButton2Click(Sender: TObject);
begin 
  if Form3.ShowModal=mrOk then sRadioButton2.Checked:=True 
                          else sRadioButton1.Checked:=True;
end;

procedure TForm3.sButton1Click(Sender: TObject);
begin
   if sEdit1.Text='' then ModalResult:=mrCancel else ModalResult:=mrOk;     
end;

PS - код не истина в последней инстанции - просто идею предлагаю без корявых заморочек

[FleXik]

Аватар, код истина в последней инстанции :D все пашет идеально, благодарочка (весы нажал) + я еще на кнопку sButton2 добавил Form3.Close;

P.S сначала не понял что проверка if Form3.ShowModal=mrOk показывает форму и дополнительно прописал Form3.ShowModal и Form3 два раза открылась, теперь знать буду, еще раз спасибо.

[phomm]

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  if InputQuery('Моя прога', 'Введите Ваш Возраст', s) then
  begin
    // нажали ОК и в s лежит строка введённая юзером
    // можно попробовать преобразовать s в число с помощью StrToIntDef 
  end
  else
    // нажали отмена или крестик
end;

Советую изучать инструментарий, которым Вы пользуетесь, чтобы не городить заборовелосипедов.

[Аватар]

я еще на кнопку sButton2 добавил Form3.Close

И зачем? Этот обработчик вообще не нужен - свойство ModalResult кнопки не равное mrNone при клике на неё и приведет к закрытию модальной формы. В модальных формах вообще ни где не нужен в явной форме метод Close

[FleXik]

phomm, я и использовал InputBox до этого, но,

во-первых - там шрифт окна по стандарту Microsoft Sans Serif а в проэктах я последнее время всегда использую шрифт Tahoma, я люблю чтобы все было идеально поэтому такие мелочи меня сильно бесят.

во-вторых - мне не понравилась длина кнопок "ОК" и "Отмена" в InputBox + у кнопки "ОК" TabStop стояло в True

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

Я до конца не хотел делать дополнительную форму, но, пришлось, и результатом я очень-очень доволен, от InputBox отказался и только рад этому.

И зачем? Этот обработчик вообще не нужен - свойство ModalResult кнопки не равное mrNone при клике на неё и приведет к закрытию модальной формы. В модальных формах вообще ни где не нужен в явной форме метод Close

ща посмотрю и отпишусь.

Аватар, Form3.Close нужен, да, без него срабатывает закрытие формы, но на кнопку "Отмена" надо нажать 2 раза чтобы форма закрылась поэтому Form3.Close все таки оставлю.

[Аватар]

надо нажать 2

Значит не то сделал. Не нужен там Close и OnClick