Q&A
- [프로시져] 프로시져 생성에 대한 질문...
허접입니다.. 책을 보고 따라하던중에 의문이 있어서요..
procedure TForm1.miopenClick(Sender: TObject); --------- 1번
begin
if myopen.FileName <> '' then begin
if Memo1.Modified then
if Application.MessageBox('수정사항이 있습니다. 저장하시겠습니까',
'저장', MB_YESNO)=ID_YES then
Memo1.Lines.SaveToFile(myopen.FileName);
end;
if myopen.Execute then begin
CreateMenuItem(myopen.FileName); --------- 에러구문
Memo1.Lines.LoadFromFile(myopen.FileName);
end;
end;
procedure TForm1.CreateMenuItem(strItemname:string); ------- 2번
var
myitem:tmenuitem;
begin
myitem :=tmenuitem.create(nil);
myitem.OnClick:=myonclickevent;
myitem.Caption:=stritemname;
myitem.Items[1].add(myitem);
end;
1번과 같은 프로시져는 버튼을 만들고 그 버튼을 더블클릭하면 자동으로 생성되는 거잖아요
근데 2번은 대체 무얼 어떻게 해야 생성이 되는건지 궁금합니다.
그냥 책에 있는데로 써 봤는데 '에러구문' 라인에 자꾸 문제가 발생합니다
그래서 private 아래에다가
procedure CreateMenuItem(strItemname:string);
이렇게 써 주니까 컴파일 되네요... 자동으로 생성하게 하는 방법이 없나요?
대체 2번줄은 어떻게 해야지 자동으로 프로시져가 생기는 건가요?
질문이 너무 어렵나요? 부탁드릴께요..
procedure TForm1.miopenClick(Sender: TObject); --------- 1번
begin
if myopen.FileName <> '' then begin
if Memo1.Modified then
if Application.MessageBox('수정사항이 있습니다. 저장하시겠습니까',
'저장', MB_YESNO)=ID_YES then
Memo1.Lines.SaveToFile(myopen.FileName);
end;
if myopen.Execute then begin
CreateMenuItem(myopen.FileName); --------- 에러구문
Memo1.Lines.LoadFromFile(myopen.FileName);
end;
end;
procedure TForm1.CreateMenuItem(strItemname:string); ------- 2번
var
myitem:tmenuitem;
begin
myitem :=tmenuitem.create(nil);
myitem.OnClick:=myonclickevent;
myitem.Caption:=stritemname;
myitem.Items[1].add(myitem);
end;
1번과 같은 프로시져는 버튼을 만들고 그 버튼을 더블클릭하면 자동으로 생성되는 거잖아요
근데 2번은 대체 무얼 어떻게 해야 생성이 되는건지 궁금합니다.
그냥 책에 있는데로 써 봤는데 '에러구문' 라인에 자꾸 문제가 발생합니다
그래서 private 아래에다가
procedure CreateMenuItem(strItemname:string);
이렇게 써 주니까 컴파일 되네요... 자동으로 생성하게 하는 방법이 없나요?
대체 2번줄은 어떻게 해야지 자동으로 프로시져가 생기는 건가요?
질문이 너무 어렵나요? 부탁드릴께요..
2
COMMENTS
-
-
이명훈 wrote:
> 프로시져 선언을 하신담에 Shift+Ctrl+C키를 눌러보세요.
이명훈님 정말 감사합니다...
이제서야 알겠군요.. 정말 감사합니다.
***** 운영자님에 의해서 게시물 카테고리변경되었습니다 (2004-10-19 18:07)
(NOTICE) You must be logged in to comment on this post.
-
- 만성
- •
- 2001.10.18 09:19
- 2 COMMENTS
- /
- 0 LIKES
-
나는나•2001.10.18 10:57procedure TForm1.Button1Click(Sender: TObject); begin Edit1.SetFocus; Edit1.SelectAll; end; ...
-
만성•2001.10.18 23:20나는나 wrote: > procedure TForm1.Button1Click(Sender: TObject); > begin > Edit1.SetFocus; > ...
-
- 델사랑
- 2001.10.18 08:52
- 0 COMMENTS
- /
- 0 LIKES
-
- Program Files
- •
- 2001.10.18 08:49
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.10.18 22:54안녕하세요. 최용일입니다. 아래와 같이 하세요... IE v5.0이상에서... uses ..., ShlObj; co...
-
Program Files•2001.10.30 19:25일단 답변에 감사 드립니다... 근데..윈도우2000에서는 잘 되거든요...첫번째것이... 윈도우98에서는 둘...
-
- 주복락
- •
- 2001.10.18 08:14
- 2 COMMENTS
- /
- 0 LIKES
허접입니다.. 책을 보고 따라하던중에 의문이 있어서요.. procedure TForm1.miopenClick(Sender: TObject); --------- 1번 begin if myopen.FileName '' then begin if Memo1.Modified then if Application.MessageBox('수정사항이 있습니...-
이명훈•2001.10.18 18:42프로시져 선언을 하신담에 Shift+Ctrl+C키를 눌러보세요. 주복락 wrote: > 허접입니다.. 책을 보...
-
주복락•2001.10.18 20:14이명훈 wrote: > 프로시져 선언을 하신담에 Shift+Ctrl+C키를 눌러보세요. 이명훈님 정말 감사합니다....
-
- 김현섭
- •
- 2001.10.18 06:11
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.10.19 01:34제 기억으론 퀵레포트는 델3에서 가장 많은 문제가 있었던것 같습니다. 패치를 다하셨나 확인해 보세요
-
- 찌르
- 2001.10.18 05:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 이미지 출력하고파
- 2001.10.18 03:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 늘초보
- •
- 2001.10.18 03:33
- 2 COMMENTS
- /
- 0 LIKES
-
돌멩이•2001.10.18 07:11늘초보 wrote: > ==등장폼== > Fmain : 메인폼 > Ffirst : 모달폼 > Fsecond : 모달폼 > > ==내용==...
-
델파이 탐 크르즈•2001.10.18 03:37이렇게 하시면 다운이 않될것 같군요.. 제가 지금 하고 있는 소스를 올립니다.. 보시고 참고 하시면 되여...
-
- 하이퍼초보
- •
- 2001.10.18 03:09
- 2 COMMENTS
- /
- 0 LIKES
-
델 삽질맨•2001.10.24 03:12하이퍼는 퀵과 달리 독립적인 유닛이필요로 합니다. 그래서 하이퍼유닛이 auto_create_Form으로 되어 있으...
-
델파이 탐 크르즈•2001.10.18 03:26QuickRep의 인스펙터 오프젝트의 속성중에 dataset에다가 Qry 컴포넌트을 연결 않하신것 같군요... 그럼...
-
- 맨땅에 헤딩 하는 넘.
- •
- 2001.10.18 02:51
- 1 COMMENTS
- /
- 0 LIKES
-
델파이 탐 크르즈•2001.10.18 03:31이렇게 하시면 될것 같군요... var FH : TextFile; begin Assignfile(FH,FileListBox...
-
- 김은희
- •
- 2001.10.18 02:43
- 3 COMMENTS
- /
- 0 LIKES
-
김지엽•2001.10.18 07:03생성을 이렇게 시켜주세요. WebBrowser2 := TWebBrowser.Create(Self); TControl(WebBrowser2).Parent ...
-
김은희•2001.10.18 18:57감사드립니다. 그렇게 하니까 되네요.. 제가 또 하나 해결하지 못한것이... webbrowser을 생성후 web...
-
김지엽•2001.10.19 20:57음.. 별다른 문제점을 생각해낼 수가 없네요? 어쩌면 ASP를 제공하는 서버의 문제가 아닐까요? 한꺼번에 ...
-
- 안창기
- •
- 2001.10.18 02:08
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.18 04:29안창기 wrote: > 디렉토리에 있는 파일을 한번에 삭제하는 방법좀 알으켜 주세요. > 디렉토리에 있는 파...
-
- 미로
- 2001.10.18 01:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 이쁜이
- •
- 2001.10.18 01:32
- 1 COMMENTS
- /
- 0 LIKES
-
aparadin•2001.10.18 19:43이쁜이 wrote: > 델파이에서 직접 프린트 할려구 하는데 > 라인피드하는 방법 알려주세요.. > CHR(13),C...
-
- 델파이초보
- 2001.10.18 01:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 델프리
- 2001.10.18 01:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 정규성
- •
- 2001.10.18 01:20
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.18 04:58정규성 wrote: > 아래처럼 데이터를 Integer의 데이터를 날짜 형식으로 바꿔서 EditBox에 넣을려고 하는데...
-
- 수정이^^
- •
- 2001.10.18 01:02
- 1 COMMENTS
- /
- 0 LIKES
-
지나는이•2001.10.19 09:41수정이^^ wrote: > 오빠들 일은 잘 하고 있겠죠..^^..땡땡이 피지 말라구여..저처럼..^^ > 다른게 아니라...
-
- 바이오맨(초보)
- •
- 2001.10.18 01:01
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.18 06:33바이오맨(초보) wrote: > SGstock.Cells[0,0] := '입고여부'; > SGstock.cells[1,0] := '바코드';...
-
- 나옹이
- •
- 2001.10.18 00:47
- 1 COMMENTS
- /
- 0 LIKES
-
cho•2001.10.18 01:02프로그램 종료쪽 루틴에 이미 해제된 변수나 폼을 다시 해제시킨다든가 하는 부분때문일겁니다. 추적을...
주복락 wrote:
> 허접입니다.. 책을 보고 따라하던중에 의문이 있어서요..
>
> procedure TForm1.miopenClick(Sender: TObject); --------- 1번
> begin
> if myopen.FileName <> '' then begin
> if Memo1.Modified then
> if Application.MessageBox('수정사항이 있습니다. 저장하시겠습니까',
> '저장', MB_YESNO)=ID_YES then
> Memo1.Lines.SaveToFile(myopen.FileName);
> end;
> if myopen.Execute then begin
> CreateMenuItem(myopen.FileName); --------- 에러구문
> Memo1.Lines.LoadFromFile(myopen.FileName);
> end;
> end;
>
> procedure TForm1.CreateMenuItem(strItemname:string); ------- 2번
> var
> myitem:tmenuitem;
> begin
> myitem :=tmenuitem.create(nil);
> myitem.OnClick:=myonclickevent;
> myitem.Caption:=stritemname;
> myitem.Items[1].add(myitem);
> end;
>
> 1번과 같은 프로시져는 버튼을 만들고 그 버튼을 더블클릭하면 자동으로 생성되는 거잖아요
> 근데 2번은 대체 무얼 어떻게 해야 생성이 되는건지 궁금합니다.
> 그냥 책에 있는데로 써 봤는데 '에러구문' 라인에 자꾸 문제가 발생합니다
> 그래서 private 아래에다가
> procedure CreateMenuItem(strItemname:string);
> 이렇게 써 주니까 컴파일 되네요... 자동으로 생성하게 하는 방법이 없나요?
> 대체 2번줄은 어떻게 해야지 자동으로 프로시져가 생기는 건가요?
> 질문이 너무 어렵나요? 부탁드릴께요..
>
>