РадиоБатон vs РадиоГруп

[Sergio_O]

Столкнулся с мелкой неприятностью. У RadioButton есть свойство ShowFocus, а у RadioGroup нету. И как следствие он выглядит ущербно со всей этой пунктирной линией. Я конечно могу заменить на обычный GroupBox, но в данном случае RadioGroup использовать целесообразнее из за кода.

procedure TFormStandSettings.RadioGroup_DatesChanging(Sender: TObject;
  NewIndex: Integer; var AllowChange: Boolean);
begin
  if NewIndex < 5 then
  begin
    DateEdit_End.Text:= '31.12.2100';
    TimePicker_End.Text:= '00:00:00';
  end;
  DateEdit_End.Visible:= NewIndex > 4;
  TimePicker_End.Visible:= NewIndex > 4;
  Label_DateEnd.Visible:= NewIndex > 4;
  case NewIndex of
    0:
      begin
        DateEdit_Start.Text:= DateToStr(IncYear(Now, -1));
        TimePicker_Start.Text:= '00:00:00';
      end;
    1:
      begin
        DateEdit_Start.Text:= DateToStr(IncMonth(Now, -1));
        TimePicker_Start.Text:= '00:00:00';
      end;
    2:
      begin
        DateEdit_Start.Text:= DateToStr(IncWeek(Now, -1));
        TimePicker_Start.Text:= '00:00:00';
      end;
    3:
      begin
        DateEdit_Start.Text:= DateToStr(IncDay(Now, -1));
        TimePicker_Start.Text:= '00:00:00';
      end;
    4:
      begin
        DateEdit_Start.Text:= DateToStr(Now);
        TimePicker_Start.Text:= '00:00:00';
      end;
    5:
      begin
        DateEdit_End.Text:= DateToStr(Now);
        TimePicker_End.Text:= TimeToStr(Now);
      end;
  end;
  AllowChange:= true;
end;

[DiemonStar]

Собственно ничего не мешает создать свой вариант радиогруппы) или погуглить на предмет более подходящего варианта.

[ych_del]

Общество анонимных извращенцев поможет!

Делаем кнопку размерами 1х1. Далее - на все твои радиобатоны вешаем вот такое:

procedure TfrmMain.RadioButton1Enter(Sender: TObject);
begin
   Button1.SetFocus;
   TRadioButton(Sender).Checked := True;
end;

Конечно, есть недостаток - с клавиатуры кнопками влево-вправо-вверх-вниз и табом отметить что-либо будет... х-м-м... затруднительно. Только мышью или хот-кеями (Ra&dioButton1 и т.п.).

Не! Это мы тоже заборем! Делаем так: в форме определяем

private
   Radio: TRadioButton;

Теперь немного меняем процедуру:

procedure TfrmMain.RadioButton1Enter(Sender: TObject);
begin
   Button1.SetFocus;
   Radio := TRadioButton(Sender);
   TRadioButton(Sender).Checked := True;
end;

И пишем обработчик для Button1:

procedure TfrmMain.Button1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   PostMessage(Radio.Handle, WM_KEYUP, 0, Key);
end;

[Stilet]

он выглядит ущербно со всей этой пунктирной линией.

А почему ущербно? Это выделение фокуса, между прочем очень даже спасительно, если ты работаешь на компьютере, у которого нет мышки - проверено на себе.

[ych_del]

Помню, как-то доводилось читать занимательную книжку по usability - там еще рекомендовалось каким-нибудь еще способом (например - цветом) выделять текущий контрол. А то вдруг юзер отвлечется на пол-минуты и забудет, что делал.

И не ориентироваться только на мышководов, и не забывать про клаву - тоже было сказано.

Вообще - в той книжке было много здравых идей, надо будет её поискать и выложить для всеобщего ознакомления.

[Stilet]

и выложить для всеобщего ознакомления.

В раздел литературы выкладывай если что.

[Valio]

Это выделение фокуса

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

[ych_del]

Valio, о том и написал (: Можно, ясен пень - на OnEnter. Если на OnClick вешать - будет мигать FocusRect, что не есть гут.

[Valio]

Да, действительно про это уже написали. С утра както лениво вчитываться )