Есть Form1 есть Button1 . Хочю чтобы при нажатии кнопки открывалась web страница в IE. Подскажите пожалуйста какие компоненты надо использавать. Заранее благодарен.
|
Есть Form1 есть Button1 . Хочю чтобы при нажатии кнопки открывалась web страница в IE. Подскажите пожалуйста какие компоненты надо использавать. Заранее благодарен.
Всем бы обязательно компоненты использовать... а подумать?
Код:procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle, 'open', 'http://domain.com' , nil, nil, SW_SHOW); end;
Wild White Water
AmonRa, эт ты поторопился. Сейчас будешь обьяснять что такое domain.com.
Надо было с его "хочю" отправить на http://www.google.com/search?sourcei...E+from+delphi+
тем более что первая же ссылка ведет куда надо.
Думаешь ли ты о жизни? Думаешь ли ты о смерти? Что ты будешь делать когда поймешь что никому не нужен?
Slaventius, следующий вопрос будет где взять ShellExecute
Wild White Water
Тебе необходимо добавить uses - shellapi, для того чтобы можно было вызвать процедуру ShellExecute, кинеш на форме еще эдит и пропишеш так как я написал, при нажатии на батан у тебя будет открыватся та страница, которую ты впишеш в эдит:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, shellapi, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle,'open',pchar(Edit1.Text),nil,n il,1)
end;
end.
Вот и все!!!!
Shadow_exe, следующим будет вопрос что такое PChar
Wild White Water
Ну это уже будет чисто его проблема.
Мой препад всегда говорил:
"Если видеш что уже ничего не получается и не что не помогает, значит время открывать справку"
Это не намек, а тема к росуждению....
У меня вопрос, что такое батан и как его нажать? :xlop-xlop: :gy:
/dev/gmaker
Купить батон в магазине и жать до потери пульса
It is good to be bad
пожалуйста ненадо меня критиковать! я знаю куда что вписывать и откуда брать!
о ребята =))) вы попали, теперь я знаю у кого консультироваться по Делфи )))
It's my life ;)
Не обижайся...Сообщение от U391
это не такая высокая плата за полученную информацию
Социальные закладки