radiobutton

Question

radiobutton

@sashaporka Знаток (298), на голосовании 13 лет назад

Кто-нибудь знает, как radiobutton сделать ссылкой. чтобы выбираешь, и он тебя перенаправляет на нужный сайт. без всяких кнопок - отправит и тд. подскажите пожалуйста.

Answer 1

uses
ShellAPI;
...

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
RadioButton1.Hint:='ссылка';
if RadioButton1.Checked = true then
begin
If (Sender is TRadioButton ) then
with (Sender as TRadioButton) do
ShellExecute(Application.Handle,PChar('open'),
PChar(RadioButton1.Hint),
PChar(0), nil, SW_NORMAL);
end;
end;