Подскажите Delphi 6

[U391]

Есть Form1 есть Button1 . Хочю чтобы при нажатии кнопки открывалась web страница в IE. Подскажите пожалуйста какие компоненты надо использавать. Заранее благодарен.

[AmonRa]

Всем бы обязательно компоненты использовать... а подумать?

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', 'http://domain.com' , nil, nil, SW_SHOW);
end;

[Slaventius]

AmonRa, эт ты поторопился. Сейчас будешь обьяснять что такое domain.com.
Надо было с его "хочю" отправить на http://www.google.com/search?sourcei...E+from+delphi+
тем более что первая же ссылка ведет куда надо.

[AmonRa]

Slaventius, следующий вопрос будет где взять ShellExecute

[Shadow_exe]

Тебе необходимо добавить 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.

Вот и все!!!!

[AmonRa]

Shadow_exe, следующим будет вопрос что такое PChar

[Shadow_exe]

Ну это уже будет чисто его проблема.

Мой препад всегда говорил:
"Если видеш что уже ничего не получается и не что не помогает, значит время открывать справку"

Это не намек, а тема к росуждению....

[Николай]

У меня вопрос, что такое батан и как его нажать? :xlop-xlop: :gy:

[Inky]

Купить батон в магазине и жать до потери пульса

[U391]

пожалуйста ненадо меня критиковать! я знаю куда что вписывать и откуда брать!

[Ирина]

о ребята =))) вы попали, теперь я знаю у кого консультироваться по Делфи )))

[!Vlad]

пожалуйста ненадо меня критиковать! я знаю куда что вписывать и откуда брать!

Не обижайся...
это не такая высокая плата за полученную информацию