0

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

1 ответ 1

5

Если я правильно понял, то как-то так:

procedure TForm1.Label1Click(Sender: TObject);
begin
// для работы этой функции, нужно подключить в раздел Uses модуль ShellAPI
  If (ShellExecute(Application.MainForm.Handle, PChar('open'),
    PChar('http://... - нужный сайт'),
    Nil, Nil, SW_ShowNormal)<32) Then
      MessageBox(0,
        PChar('Не могу открыть браузер!'),
        PChar('Ошибочка вышла!'),
        MB_OK + MB_ICONERROR + MB_APPLMODAL + MB_TOPMOST);
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  Label1.Font.Color:=clRed;
  Label1.Font.Style:=[fsUnderline];
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  Label1.Font.Color:=clBlue;
  Label1.Font.Style:=[];
end;
3
  • 2
    В целом всё правильно, только я бы убрал все эти ужасные PChar. if (ShellExecute(Handle, 'open', 'http://... - нужный сайт', Nil, Nil, SW_ShowNormal)<32) then MessageBox(0, 'Не могу открыть браузер!', 'Ошибочка вышла!', MB_OK + MB_ICONERROR + MB_APPLMODAL + MB_TOPMOST); так компактнее и понятнее имхо.
    – AlexAndR
    2 мая 2012 в 7:49
  • Не знал, что эти функции могут воспринимать обычные строки, поэтому всегда передавал им PChar.
    – DelphiM0ZG
    2 мая 2012 в 9:11
  • 1
    @DelphiM0ZG, они не могут, но компилятор может автоматически привести тип констатного выражения. Кстати, в D2006 присутствовал баг из-за которого приходилось писать явно.
    – karmadro4
    2 мая 2012 в 13:54

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.