VPF::проверка RadioButton - Форум программистов

kulikoff

Дата 16.1.2006, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: нет
Всего: 1

Как сделать так, чтоб как только пользователь выбрал, допустим RadioButton3, кнопка SpeedButton2 становилась видимой, а при выделении другой RadioButton становилась опять невидимой. Это всё прям при выполнении приложения, без нажатия дополнительных каких-то кнопок...

mvdr

Дата 16.1.2006, 16:42 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42

Код


rpocedure RadioButton1.Click
begin
if speedButton1.Checking=true then
begin
SpeedButton1.visible:=true;
speedButton2.Visible:=false;
...
speedButtonX.Visible:=false;
end;
//аналогично для других кнопок
end.

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Denic

Дата 16.1.2006, 16:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 7.10.2005

Репутация: нет
Всего: нет

Код


Объект.Visible:=True; // видимый
Объект.Visible:=False; // невидимый

Alexeis

Дата 16.1.2006, 16:43 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Код


  TForm1 = class(TForm)
    Button1: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button2: TButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);

  private
    { Private declarations }
  public


    { Public declarations }
  end;
var
  Form1: TForm1;


implementation

{$R *.dfm}
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  if RadioButton1.Checked
  then
    Begin
      button1.Visible := false;
      button2.Visible := true;
    end
  else
    Begin
      button2.Visible := false;
      button1.Visible := true;
    end;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
  if RadioButton2.Checked
  then
    Begin
      button2.Visible := false;
      button1.Visible := true;
    end
  else
    Begin
      button1.Visible := false;
      button2.Visible := true;
    end;
end;

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

FRAGNATIC

Дата 16.1.2006, 16:46 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

kulikoff
в обработчике радиобатона OnClick пиши свой код=)

kulikoff

Дата 16.1.2006, 17:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: нет
Всего: 1

Спасибо большое!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »