адрес брать из поля метки.
Листинг 10.10.
Щелчок в поле URL
void _fastcall TAboutForm::Label5Click(TObject *Sender) { /* наиболее просто передать в функцию ShellExecute строку-константу (URL-адрес) так, как показано ниже: ShellExecute(AboutForm->
Handle, "open", "http:\\\\www.bhv.ru", NULL, NULL) Лучше URL- адрес брать из поля метки. В функцию ShellExecute надо передать указатель на null terminated-строку, но свойство Caption — это AnsiString. Преобразование Ansi-строки в char* выполняет метод c_str() */ // открыть файл, имя которого находится в поле Labels ShellExecute(AboutForm->
Handle,"open",Label5->
Caption.c_str(), NULL,NULL,SW_RESTORE);
}
Окно О программе закрывается в результате щелчка на кнопке ОК . Функция обработки этого события приведена ниже.
void fastcall TAboutForm::ButtonlClick(TObject *Sender) { ModalResult = mrOk; // убрать окно О программе }
Содержание раздела