|
기타자료실 - '창조'로 제작하지 않은 프로그램이나, '창조'와 관련된 프로그램들을 올리는 곳입니다. - 첨부가능 확장자는 *.zip,*.rar,*.exe,*.jpg,*.gif,*.png 입니다. |
| Posted by 손상진 | 2004-02-23 09:59:17, Hit : 5692 | |
|
|
|
델파이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는 여러 이벤트가 있는데...
잘 쓰면 프로그래스바(눈금계) 구현과 상태바 구현도 할 수 있고, 쿠키 일련번호(?)도 구할 수 있습니다. |
|
|
지우개 Expert 3.0 제작자 : 천호성 님 [LINK] |
|
|
|
대박로또2005 제작자 : 최재일 님 [LINK] |
|
|
1 | 박종훈 님 | 15292 점 | |
2 | 지상현 님 | 8809 점 | |
3 | 손상진 님 | 7388 점 | |
4 | 권선중 님 | 6060 점 | |
5 | 이진백 님 | 5174 점 | |
|
|
|
가입일 | 닉네임 |
05/31 | 김동률 |
03/31 | 홍형기 |
09/01 | o00pp99oo |
12/27 | 이재민 |
11/20 | 이희철 |
|
|
|
|
. |
. |
. |
|