Как убрать фокус с Radiobutton на Label в Delphi ?

[Ветас]

Здравствуйте, уважаемые форумчане. У меня вопрос по Delphi
Подскажите пожалуйста как установить фокус на одну из надписей (Label) чтобы ни один из трех переключателей не был активным, а то получается, что когда открывается окно "О программе" (AboutBox), а фокус остается на одном из трех переключателей и зависает на нем пока не закончатся все вопросы теста.

[veniside]

на лейбл нельзя установить фокус, т.к. формально это не контрол.
Юзай SetFocus(), у кого он есть.

[Serge_Bliznykov]

Label - это статик-текст, он не имеет и не может иметь фокуса!

давайте исходники Вашего проекта (можно просто тестовый пример, иллюстрирующий Вашу мысль), поговорим более конкретно.

пока могу предположить, что окошко "About" нужно сделать модальным!

[was3110]

Конечно, на Label фокус установить нельзя. Но Ветас надо убрать (даже не фокус) выделение с РадиоКнопок. А это возможно, установив свойство RadioBut.Checked:=false;

[Ветас]

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

Label - это статик-текст, он не имеет и не может иметь фокуса!

давайте исходники Вашего проекта (можно просто тестовый пример, иллюстрирующий Вашу мысль), поговорим более конкретно.

пока могу предположить, что окошко "About" нужно сделать модальным!

Окошко "About" у меня модальное.
Привожу код проекта:

procedure TForm1.RadioButton1Click(Sender: TObject);
var
    buf: string;
    i: integer;
begin

  if RadioButton1.Checked  then
        right := right + RadioButton1.Tag;

       if RadioButton1.Tag = 1 then begin
    
         MessageDlg('Правильно!',mtInformation,[mbOK],0);
 
    RadioButton1.Checked:=False;
    end
  else
  
    MessageDlg('Неправильно',mtError,[mbOK],0);

 

    if not NextQW then
  begin
      // здесь значение NextQw = FALSE
    

      // скрыть переключатели и поля меток
      RadioButton1.Visible := False;
      RadioButton2.Visible := False;
      RadioButton3.Visible := False;

      Label2.Visible := False;
      Label1.Visible:=False;
     

      buf := 'Тестирование завершено.' + #13 +
             'Правильных ответов: ' + IntToStr(right) +
             ' из ' + IntToStr(nq) + '.' + #13;
     Label4.Left:=178;
     Label4.Top:=178;
      Label4.Visible:=True;
      Label4.Caption := buf;
      N5.Enabled:=False;
      N4.Enabled:=True;
    end;
end;

[veniside]

Проблема тут:

RadioButton1.Checked:=False;

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

Добавь ещё одну радиокнопку "Не знаю", и делай ей .Checked := True вместо RadioButton1.Checked:=False.

[Ветас]

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

Проблема тут:

RadioButton1.Checked:=False;

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

Добавь ещё одну радиокнопку "Не знаю", и делай ей .Checked := True вместо RadioButton1.Checked:=False.

Попробовал сделать - написал вот так:

procedure TForm1.RadioButton1Click(Sender: TObject);
var
    buf: string;
    i: integer;
begin

  if RadioButton1.Checked  then
        right := right + RadioButton1.Tag;

       if RadioButton1.Tag = 1 then begin
    
         MessageDlg('Правильно!',mtInformation,[mbOK],0);

   RadioButton4.Checked:=True;  //Вот здесь добавил
 

    end
  else begin
  
    MessageDlg('Неправильно',mtError,[mbOK],0);
   
   RadioButton4.Checked:=True;  //Вот здесь добавил

end;
 

    if not NextQW then
  begin
      // здесь значение NextQw = FALSE
    

      // скрыть переключатели и поля меток
      RadioButton1.Visible := False;
      RadioButton2.Visible := False;
      RadioButton3.Visible := False;

      Label2.Visible := False;
      Label1.Visible:=False;
     

      buf := 'Тестирование завершено.' + #13 +
             'Правильных ответов: ' + IntToStr(right) +
             ' из ' + IntToStr(nq) + '.' + #13;
     Label4.Left:=178;
     Label4.Top:=178;
      Label4.Visible:=True;
      Label4.Caption := buf;
      N5.Enabled:=False;
      N4.Enabled:=True;
    end;
end;

Но ничего не изменилось: как был фокус на последней выбранной RadioButton - так он и остался. И как его перенести (фокус) на RadioButton4 ?