25.12.2006, 17:22
общий
это ответ
Здравствуйте, Костенко Игорь Викторович!
Пусть текст находится в Label1, тогда в обработчик OnClick у вас должен принять следующий вид:
TLabel.Label1Click(Sender: TObject);
begin
ShellExecute(nil, ‘open‘, PChar(‘http://‘ + Label1.Text + ‘/‘), nil, nil, SW_NORMAL);
// либо
ShellExecute(nil, PChar(‘http://‘ + Label1.Text + ‘/‘), nil, nil, nil, SW_NORMAL);
end;
Уточняйте, если вы хотели что-то другое.