Q&A
- 대림출판사 delphi5 contact 로 공부하는데..소소좀 봐주세여
이런 글을 올려서 대답을 해주실지 의문이 가지만 희망을 걸고 몇자 적어봅니다.
위에서 말씀드린것처럼 대림출판사의 delphi5 contact 로 공부하는데 첫번째 프로그램
이라는 걸 따라 하니까 도대체 실행이 안되네요. 그냥 이벤트가 발생하면 화면에 출력하는건데 틀린문장도 없고 몇번이나 다시 해봤는데요 안되네요. 이제막 시작하는 병아리라 아무것도 모르고 쫏아갈려고 하는데 며칠째
고민하다가 여기다 글을 올립니다. 제발 아래 소스좀 보니고 대답좀해주세요. 미치겠습니다.
-----------------------
unit FirstApp;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
edtFirstString: TEdit;
edtSecondString: TEdit;
lblFristString: TLabel;
lblSecondstring: TLabel;
btnCopy: TButton;
lstbxEvents: TListBox;
procedure btnCopyClick(Sender: TObject);
procedure btnCopyMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure edtFirstStringEnter(Sender: TObject);
procedure edtFirstStringExit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.btnCopyClick(Sender: TObject);
begin
lblFirstString.Caption := edtFirstString.Text;
lblSecondString.Caption := edtSecondString.Text;
end;
procedure TForm1.btnCopyMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
lstbxEvents.Items.Add(IntToStr(X)+ ',' + IntToStr(Y) + ' '+' 버튼 MouseMove
end;
procedure TForm1.edtFirstStringEnter(Sender: TObject);
begin
lstbxEvents.Items.Add('첫번째 에디트 코거스 받음!');
end;
procedure TForm1.edtFirstStringExit(Sender: TObject);
begin
lstbxEvents.Items.Add('첫번째 에디트 포커스 읽음!');
end;
end.
위에서 말씀드린것처럼 대림출판사의 delphi5 contact 로 공부하는데 첫번째 프로그램
이라는 걸 따라 하니까 도대체 실행이 안되네요. 그냥 이벤트가 발생하면 화면에 출력하는건데 틀린문장도 없고 몇번이나 다시 해봤는데요 안되네요. 이제막 시작하는 병아리라 아무것도 모르고 쫏아갈려고 하는데 며칠째
고민하다가 여기다 글을 올립니다. 제발 아래 소스좀 보니고 대답좀해주세요. 미치겠습니다.
-----------------------
unit FirstApp;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
edtFirstString: TEdit;
edtSecondString: TEdit;
lblFristString: TLabel;
lblSecondstring: TLabel;
btnCopy: TButton;
lstbxEvents: TListBox;
procedure btnCopyClick(Sender: TObject);
procedure btnCopyMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure edtFirstStringEnter(Sender: TObject);
procedure edtFirstStringExit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.btnCopyClick(Sender: TObject);
begin
lblFirstString.Caption := edtFirstString.Text;
lblSecondString.Caption := edtSecondString.Text;
end;
procedure TForm1.btnCopyMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
lstbxEvents.Items.Add(IntToStr(X)+ ',' + IntToStr(Y) + ' '+' 버튼 MouseMove
end;
procedure TForm1.edtFirstStringEnter(Sender: TObject);
begin
lstbxEvents.Items.Add('첫번째 에디트 코거스 받음!');
end;
procedure TForm1.edtFirstStringExit(Sender: TObject);
begin
lstbxEvents.Items.Add('첫번째 에디트 포커스 읽음!');
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 윤연숙
- 2000.09.29 19:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 달팽이
- 2000.09.29 19:28
- 0 COMMENTS
- /
- 0 LIKES
-
- onlyna
- 2000.09.29 19:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 투덜이
- •
- 2000.09.29 19:17
- 1 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.09.29 21:08투덜이 wrote: > ADO를 연습중인데, 어디서 프로그램을 하나 다운 받아서 실행 시키면 > Exception EOle...
-
- 궁금맨...
- •
- 2000.09.29 19:09
- 1 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.09.29 22:33궁금맨... wrote: > type > TMyThread = class(TThread) > private > Msg: String; > procedure...
-
- 꼴통
- •
- 2000.09.29 18:00
- 1 COMMENTS
- /
- 0 LIKES
-
백근훈•2000.09.29 23:37꼴통 wrote: > 안녕하세요 > echo_patch_local_file := echo_patch_info.ReadString('PATCH_'+IntToStr(i...
-
- 알고 싶은 이
- •
- 2000.09.29 14:03
- 1 COMMENTS
- /
- 0 LIKES
-
백근훈•2000.09.29 18:53알고 싶은 이 wrote: > 안녕하십니까? > 늘 수고가 많으십니다. > 저는 델파이 왕왕왕 초보로 델파이 3...
-
- 델피언
- 2000.09.29 11:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 배경문
- •
- 2000.09.29 11:23
- 1 COMMENTS
- /
- 0 LIKES
이런 글을 올려서 대답을 해주실지 의문이 가지만 희망을 걸고 몇자 적어봅니다. 위에서 말씀드린것처럼 대림출판사의 delphi5 contact 로 공부하는데 첫번째 프로그램 이라는 걸 따라 하니까 도대체 실행이 안되네요. 그냥 이벤트가 발생...-
건설정보연구소•2000.09.29 20:18btnCopyMouseMove Event coding이 잘못 된것 같네요 배경문 wrote: > 이런 글을 올려서 대답을 해주...
-
- 안젤726
- 2000.09.29 07:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 강호규
- •
- 2000.10.10 18:31
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.10.25 12:55http://www.pbe.com/winshoes/ 에 가보세요. 현재 Indy8.007B버전까지 나왔습니다. 예제도 있다고 하더군...
-
- 박진영
- 2000.09.29 07:17
- 0 COMMENTS
- /
- 0 LIKES
-
- kkh
- 2000.09.29 17:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 박상길
- 2000.09.29 06:10
- 0 COMMENTS
- /
- 0 LIKES
-
- chodel
- 2000.09.29 05:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 조헌철
- •
- 2000.09.29 05:32
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.09.29 08:49조헌철 wrote: > unit Unit1; > > interface > > uses > Windows, Messages, SysUtils, Classes,...
-
- 김지명
- •
- 2000.09.29 05:08
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자(델포이)•2000.09.29 08:25김지명 wrote: > 제가 다른 사람이 만들어 놓은 Access DB를 이용해 프로그램을 하나 짜고 있읍니다. > ...
-
- 김경한
- •
- 2000.09.29 04:33
- 1 COMMENTS
- /
- 0 LIKES
-
김종섭•2000.09.30 21:44김경한 wrote: > > 디비 그리드의 데이터를 그리드상에서 직접 수정하고 싶습니다. > 직접 수정은 되...
-
- 델혀기
- •
- 2000.09.29 04:12
- 1 COMMENTS
- /
- 0 LIKES
-
권영길•2000.09.29 04:45Conn.LoginPrompt := False; 델혀기 wrote: > 고수님들 오늘도 수고가 많습니다. > 다름이 아니라 b...
-
- Cha
- •
- 2000.09.29 03:25
- 1 COMMENTS
- /
- 0 LIKES
-
우창정기•2000.09.29 03:42Cha wrote: > MDI형식의 프로그램을 하고 있습니다. > 포커스가 가있는 자식폼을 찾으려고 합니다.. > a...
배경문 wrote:
> 이런 글을 올려서 대답을 해주실지 의문이 가지만 희망을 걸고 몇자 적어봅니다.
> 위에서 말씀드린것처럼 대림출판사의 delphi5 contact 로 공부하는데 첫번째 프로그램
> 이라는 걸 따라 하니까 도대체 실행이 안되네요. 그냥 이벤트가 발생하면 화면에 출력하는건데 틀린문장도 없고 몇번이나 다시 해봤는데요 안되네요. 이제막 시작하는 병아리라 아무것도 모르고 쫏아갈려고 하는데 며칠째
> 고민하다가 여기다 글을 올립니다. 제발 아래 소스좀 보니고 대답좀해주세요. 미치겠습니다.
> -----------------------
>
> unit FirstApp;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
> type
> TForm1 = class(TForm)
> edtFirstString: TEdit;
> edtSecondString: TEdit;
> lblFristString: TLabel;
> lblSecondstring: TLabel;
> btnCopy: TButton;
> lstbxEvents: TListBox;
> procedure btnCopyClick(Sender: TObject);
> procedure btnCopyMouseMove(Sender: TObject; Shift: TShiftState; X,
> Y: Integer);
> procedure edtFirstStringEnter(Sender: TObject);
> procedure edtFirstStringExit(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.btnCopyClick(Sender: TObject);
> begin
> lblFirstString.Caption := edtFirstString.Text;
> lblSecondString.Caption := edtSecondString.Text;
> end;
>
> procedure TForm1.btnCopyMouseMove(Sender: TObject; Shift: TShiftState; X,
> Y: Integer);
> begin
> lstbxEvents.Items.Add(IntToStr(X)+ ',' + IntToStr(Y) + ' '+' 버튼 MouseMove
==>lstbxEvents.Items.Add(IntToStr(X)+ ',' + IntToStr(Y) + ' ' + ' 버튼 MouseMove')
> end;
>
> procedure TForm1.edtFirstStringEnter(Sender: TObject);
> begin
> lstbxEvents.Items.Add('첫번째 에디트 코거스 받음!');
> end;
>
> procedure TForm1.edtFirstStringExit(Sender: TObject);
> begin
> lstbxEvents.Items.Add('첫번째 에디트 포커스 읽음!');
> end;
>
> end.
>