PageControl

[Китти]

Здравствуйте, у меня такой вопрос:
У меня в PageControl-е 3 вкладки, на которых расположены по 2 радиокнопки (Radiobutton), в сумме 6 радиокнопок.
Чтобы выполнить действие есть обычная кнопка:

procedure TForm1.Button1Click(Sender: TObject);
begin
if radiobutton1.Checked=true then
memo1.Lines.Add('s1k1') ;
if radiobutton2.Checked=true then
memo1.Lines.Add('s1k2') ;
if radiobutton3.Checked=true then
memo1.Lines.Add('s2k3') ;
if radiobutton4.Checked=true then
memo1.Lines.Add('s2k4') ;
if radiobutton5.Checked=true then
memo1.Lines.Add('s3k5') ;
if radiobutton6.Checked=true then
memo1.Lines.Add('s3k6') ;
end;


В итоге в мемо вывоится след текст:

s1k1
s1k2
s1k2
s2k3
s1k2
s2k4
s1k2
s2k4
s3k5
s1k2
s2k4
s3k6

А мне нужно, чтобы выводился такой текст:
s1k1
s1k2
s2k3
s2k4
s3k5
s3k6

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

Помогите, пожалуйста!

[Valio]

Речь идёт о очистке Мемо?

Memo1.Clear;

Или что?

[Китти]

Нет, речь идет о том, как можно убрать выделение с радиокнопки с предыдущей страницы:

1 страница (Tabsheet1)
s1k1
s1k2
2 страница (Tabsheet2)
s1k2 - это лишнее (идет за счет выделенной радикн2 на 1 стр-це)
s2k3
s1k2 - это лишнее (идет за счет выделенной радикн2 на 1 стр-це)
s2k4
3 страница (Tabsheet3)
s1k2 - это лишнее (идет за счет выделенной радикн2 на 1 стр-це)
s2k4 - это лишнее (идет за счет выделенной радикн4 на 2 стр-це)
s3k5
s1k2 - это лишнее (идет за счет выделенной радикн2 на 1 стр-це)
s2k4 - это лишнее (идет за счет выделенной радикн4 на 2 стр-це)
s3k6

[Valio]

Тоесть нужно обрабатывать только радиобутоны на активной вкладке?

[Китти]

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

Тоесть нужно обрабатывать только радиобутоны на активной вкладке?

Да, там надо воспользоваться каким то из свойств, только не пойму каким...

[Valio]

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

Да, там надо воспользоваться каким то из свойств, только не пойму каким...

Элементу на неактивной вкладке нельзя передать фокус.
.CanFocus - попытка передать компоненту фокус, в случае ошибке вернёт False.

Тобишь:

If (RadioButton1.Checked) And (RadioButton1.CanFocus) Then ...

[Китти]

Спасибо большое! всё работает так, как надо...=)

[phomm]

зачем такие экстремизмы )) ?

достаточно:

if radiobutton1.checked then
  begin
  memo.liones.add('то _что_надо');
  exit;  // засчет этого все остальные условия не будут выполнены
  end;
// ну и для всех баттонов такое расписать

UPD а нет.. извиняюсь.. не совсем верно интерпретировал вопрос
тогда могу ещё предложить разделение такое:

if pagecontrol1.tabindex = 1
  then begin
  // сюда все проверки батонов относящихся к 1 закладке
  end;
// и для всех табиндексов также