Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > проверка RadioButton

Автор: kulikoff 16.1.2006, 16:33

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

Автор: mvdr 16.1.2006, 16: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

Код


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

Автор: Alexeis 16.1.2006, 16:43

Код


  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;

Автор: FRAGNATIC 16.1.2006, 16:46

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

Автор: kulikoff 16.1.2006, 17:00

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