안녕하세요.
델파이 입문하는 학생 입니다.
인터넷 브라우져를 만들려고 합니다.
1. 내용은 시작 버튼을 누르면 5-6초 후에 지정된 싸이트 랜덤. 싸이트1, 싸이트2,
싸이트3, 싸이트4, 싸이트5 이동 하면 됩니다. 이동 시간은 5-6초
종료 버튼을 누르면 랜덤 종료.
시작 버튼 소스 좀 알려 주세요.
종료 버튼 소스 좀 알려 주세요.
help 버튼 누르면 "김미숙 제작" 팝업창 나오는 소스 좀 알려 주세요.
이상 입니다.
좀 도와 주세요.
부탁 합니다.
durico@naver.com
제작한 소스 입니다.
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw;
type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton; 시작버튼
    Button7: TButton; 종료버튼
    Button8: TButton; help 버튼
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.empas.com');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.naver.com');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.yahoo.co.kr');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.paran.com');
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.korea.com');
end;

end.