PopupMenu - свойство Checked...

[tim21701]

У PopupMenu есть три MenuItem, все три представлены как RadioItem. Соответственно, можно выбрать лишь один их них, но, есть возможность вообще ничего не выбирать. То есть, значение по умолчанию.
Вот с этим, что-то не пойму, помогите...
Вот как сделано у меня на одном из трех MenuItem (Last7day):

procedure TForm.Last7dayClick(Sender: TObject);
begin
  Last7day.Checked:=not Last7day.Checked;
    
    if Last7day.Checked = True
       then
    MyQuery2.Active:=True;

begin
    if MyQuery1.Active = True
       then
    MyQuery1.Active:=False end;
begin
    if MyQuery3.Active = True
       then
    MyQuery3.Active:=False end;
end;

По умолчанию у меня работает MyQuery1, если я выбираю в меню один из трех пунктов, то - оно включает соответствующий MyQuery (отключая другие) и всё отображается правильно, всё работает. Но, как сделать так, что бы назад включался MyQuery1, если я опять выбрал Last7day? (тоесть, убрал RadioItem)

[Кольша]

исходник кинте или вот:

if Last7day.Checked
       then begin
   MyQuery2.Active:=false;
   MyQuery1.Active:=true;
   MyQuery3.Active:=False end;

сами вставите

[tim21701]

Кольша спасибо за ответ, но, Вы лишь упростили мой код. Это не решает проблему...

Необходимо заново подключать MyQuery1 - если ни один из пунктов меню не выбран.
Что для этого надо, как это реализовать???

Что то вроде:

Если отмечено меню Last7day
То отключить MyQuery1 и MyQuery3 и подключить MyQuery2 (как раз то - что Вы написали)
Иначе вернуть MyQuery1 (надо добавить)

Как мне это Иначе добавить?

[tim21701]

Всем спасибо. Решил сделать вот так:

procedure TForm.Last7dayClick(Sender: TObject);
begin
  Last7day.Checked:=not Last7day.Checked;
  if Last7day.Checked = True then
  begin
  MyQuery2.Active:=True;
  MyQuery1.Active:=False;
  MyQuery3.Active:=False
  end
  else begin
  MyQuery1.Active:=True;
  MyQuery2.Active:=False;
  MyQuery3.Active:=False
  end;
end;

[evg_m]

     if Item1.checked then ....
else if Item2.checked then ...
else if Item3.checked then ...
else ...

и общий обработчик

Вот как сделано у меня на одном из трех MenuItem (Last7day):