창조유저그룹-커즈닷컴

기타자료실
- '창조'로 제작하지 않은 프로그램이나, '창조'와 관련된 프로그램들을 올리는 곳입니다.
- 첨부가능 확장자는 *.zip,*.rar,*.exe,*.jpg,*.gif,*.png 입니다.

LIST ALL

Posted by 손상진

2004-02-23 09:59:17, Hit : 5683

창조에서 되는듯이 만들어보기^^;

Homepage : http://www.sangjinnet.com

File #2 : Projectn.exe (453.5 KB) Download : 194

Post URL : http://cugz.sjworks.net/bbs/zboard.php?id=pds_etc&no=355

델파이7을 깔아보았습니다.;;

명령체계(?)는 창조와 비슷한데
명령주는 방법이 좀 다르더군요 ;;;(크흥)

거기서 한참 헤매다가..

웹브라우져 객체를 보고 반가운 마음에 흉내만 내봤습니다^^;;

아무 도움말이나 도움을 받고한게 아니라서
맞는 명령을 쓴건지 아닌지..;;

나름대로의 창조와의 비교..;;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Panel2: TPanel;
    Edit1: TEdit;
    Button6: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Panel2Resize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm} /////여기까진 하나도 모르겠음 ;; 그냥 객체가있다~ 그런거 같은데. 후후;;;

procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.GoBack; //있다면..;; 웹브라우져1.후진; (후진? ㅋㅋ)
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
WebBrowser1.GoForward; //요것도 있다면 ;;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
WebBrowser1.Stop; //젠장 요것도 없네 ;;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
WebBrowser1.Refresh; //....
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.GoHome;
Button2.Enabled:=true; //버튼2.제어:=참;
Button3.Enabled:=true; //버튼3.제어:=참;
Button4.Enabled:=true; //버튼4.제어:=참;
Button5.Enabled:=true; //버튼5.제어:=참;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text); //웹브라우져에 에디트에 입력한 주소를 읽게해주기 ;;
Button2.Enabled:=true;
Button3.Enabled:=true;
Button4.Enabled:=true;
Button5.Enabled:=true;
end;

procedure TForm1.Panel2Resize(Sender: TObject); //이 명령은 밑판의 크기가 변경될때..
begin
Button6.Left:=Panel2.Width-59; //버튼6.좌변:=밑판2.폭-59;
Edit1.Width:=panel2.Width-66; //에디트1.폭:=밑판2.폭-66;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button6.Click; //버튼6.눌러;
end;

end.

명령쪽에선 꾀나 공통점이 있는듯 보이네요^^;

위자드 2004-02-23 PM 12:21:50


앗! 영어닷.....@_@

ⓟ구루ⓢ 2004-02-24 AM 10:57:16


goback 같은거는 더이상 못갈때 '지정되지 않은 오류입니다'의 압박 ㅋ 창조의 경우는 제 생각이지만 오브젝트 파스칼과 C 그리고 일부 제작자의 짬뽕 3가지를 합친것 같습니다. 철저공략 델파이 7 도서 추천 (기초부터 어려운 부분까지 모두 정리하고 델파이 만든사람 중 한명이 썼다네요.)

ⓟ구루ⓢ 2004-02-24 AM 10:58:45


TWebBrowser는 여러 이벤트가 있는데... 잘 쓰면 프로그래스바(눈금계) 구현과 상태바 구현도 할 수 있고, 쿠키 일련번호(?)도 구할 수 있습니다.