한국 델파이 개발자 모임 - [급질문]Unit Form에서 생성된 Class Method override방식은 뭐죠?

[급질문]Unit Form에서 생성된 Class Method override방식은 뭐죠?

안녕하세요...

초보자라 엉뚱한 부분에서 막혀서 고수님들께 조심스레 조언을 구하고져합니다..

클래스(TToppanel)에서 procedure의 형태만 만들어주고,

form에서 TToppanel위에 speedButton을 click시에 다른 Event를

발생시켜려 합니다.

조상클래스엔 형체만 잡아주고, 각Form에서 구체적으로

각각의 Form에서 Procedure를 재설정하여야 하는데 form에서

아래의 procedure를 어떻게 접근해야 하는지 모르겠습니다.

델파이는 다중 상속이 안되니,

Form1 = class(Tform,TTop)은 안될꺼고.....

어떤 방식으로 이 난국을 헤쳐갈까 고수님들께 여쭤봅니다.

unit TopPanel;

interface

uses

windows,Messages, SysUtils, Classes, Controls, ExtCtrls, Buttons, WinTypes, Forms, Graphics

,stdCtrls,Dialogs;

type

TSPBEvent = procedure(sender:TObject) of Object;

TTopPanel = class(TPanel)

private

{ Privated declarations }

FSPB1 : TSpeedButton;

FTopRight : TPanel;

FSPBOnClick : TSPBEvent;

public

{ Public declarations }

constructor Create(AOwn:TComponent);override;

procedure SPBOnClick(Sender:TObject);virtual;

procedure SPB1;virtual;

published

{ published declarations }

property OnClick:TSPBEvent read FSPBOnClick write FSPBOnClick;

end;

implementation

constructor TPanelTest.Create(AOwn:TComponent);

begin

inherited Create(AOwn);

FSPB1 := TSpeedButton.Create(Self);

FTopRight := TPanel.Create(Self);

procedure TPanelTest.SPBOnClick(sender:TObject);

begin

{ Button Inner Procedure }

if Sender = FSPB1 then SPB1;

end;

//-------------< 그 문제의 procedure >---------------------------------

procedure TPanelTest.SPB1;

begin

{ SPB1_OnClick procedure }

end;

//-----------------------------------

end.

(* ++++++++++++++++++++++++++++++++++++++++++++ *)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, Grids, AdvGrid,TopPanel;

type

TForm1 = class(TForm)

PanelA : TTopPanel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

procedure SPB1;override; <<<-----Error: Method 'SPB1' not found base class.--------

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

PanelA := TPanelTest.Create(self);

with PanelA do

begin

parent := self;

caption := 'panelA';

Font.Name := '굴림체';

Font.Style := [];

Font.Size := 10;

Height := 50;

color := clYellow;

align := altop;

Top := 100;

left := 100;

width := 200;

height := 100;

show;

end;

end;

//-------------- < TTopPanel SpeedButton Onclick Event.. >-----------

procedure TForm1.PanelA.SPB1;

begin

{ SPB1_OnClick procedure}

showmessage('SPB1 is select...');

end;

//-------------------------------------------------------------------

end.

이 게시물을

1 COMMENTS

김재현 • 1999.11.29 21:45

김재현 wrote:

> 안녕하세요...

> 초보자라 엉뚱한 부분에서 막혀서 고수님들께 조심스레 조언을 구하고져합니다..

>

> 클래스(TToppanel)에서 procedure의 형태만 만들어주고,

> form에서 TToppanel위에 speedButton을 click시에 다른 Event를

> 발생시켜려 합니다.

> 조상클래스엔 형체만 잡아주고, 각Form에서 구체적으로

> 각각의 Form에서 Procedure를 재설정하여야 하는데 form에서

> 아래의 procedure를 어떻게 접근해야 하는지 모르겠습니다.

>

> 델파이는 다중 상속이 안되니,

> Form1 = class(Tform,TTop)은 안될꺼고.....

>

> 어떤 방식으로 이 난국을 헤쳐갈까 고수님들께 여쭤봅니다.

>

>

> unit TopPanel;

>

> interface

>

> uses

> windows,Messages, SysUtils, Classes, Controls, ExtCtrls, Buttons, WinTypes, Forms, Graphics

> ,stdCtrls,Dialogs;

> type

> TSPBEvent = procedure(sender:TObject) of Object;

> TTopPanel = class(TPanel)

>

> private

> { Privated declarations }

> FSPB1 : TSpeedButton;

> FTopRight : TPanel;

> FSPBOnClick : TSPBEvent;

> public

> { Public declarations }

> constructor Create(AOwn:TComponent);override;

> procedure SPBOnClick(Sender:TObject);virtual;

> procedure SPB1;virtual;

> published

> { published declarations }

> property OnClick:TSPBEvent read FSPBOnClick write FSPBOnClick;

> end;

>

>

> implementation

>

> constructor TPanelTest.Create(AOwn:TComponent);

> begin

> inherited Create(AOwn);

> FSPB1 := TSpeedButton.Create(Self);

> FTopRight := TPanel.Create(Self);

>

> procedure TPanelTest.SPBOnClick(sender:TObject);

> begin

> { Button Inner Procedure }

> if Sender = FSPB1 then SPB1;

> end;

>

>

> //-------------< 그 문제의 procedure >---------------------------------

> procedure TPanelTest.SPB1;

> begin

> { SPB1_OnClick procedure }

> end;

> //-----------------------------------

>

> end.

>

> (* ++++++++++++++++++++++++++++++++++++++++++++ *)

>

> unit Unit1;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> StdCtrls, ExtCtrls, Grids, AdvGrid,TopPanel;

>

>

> type

> TForm1 = class(TForm)

> PanelA : TTopPanel;

> Button1: TButton;

> procedure Button1Click(Sender: TObject);

> private

> { Private declarations }

> public

> { Public declarations }

> procedure SPB1;override; <<<-----Error: Method 'SPB1' not found base class.--------

> end;

>

> var

> Form1: TForm1;

>

> implementation

>

> {$R *.DFM}

> procedure TForm1.Button1Click(Sender: TObject);

> begin

> PanelA := TPanelTest.Create(self);

> with PanelA do

> begin

> parent := self;

> caption := 'panelA';

> Font.Name := '굴림체';

> Font.Style := [];

> Font.Size := 10;

> Height := 50;

> color := clYellow;

> align := altop;

> Top := 100;

> left := 100;

> width := 200;

> height := 100;

> show;

> end;

> end;

>

> //-------------- < TTopPanel SpeedButton Onclick Event.. >-----------

> procedure TForm1.PanelA.SPB1;

> begin

> { SPB1_OnClick procedure}

> showmessage('SPB1 is select...');

> end;

> //-------------------------------------------------------------------

>

> end.

>

>

죄송해요...

Panel Class를 다른 클래스(TPanelB)로 상속 받고..

상속받은 클래스에 대해서 멤버 변수를 선언하니깐...

조상 클래스의 Method를 접근하여 override할 수 있었습니다..

너무 엉뚱한 것 가지고 물의를 일으켜 죄송합니다..
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 문영미
- •
- 1999.11.27 22:18
- 1 COMMENTS
- /
- 0 LIKES
TDatabase Param 값 설정하고 Oracle 연결하기
- 김영대
  
  •
  
  1999.11.27 22:44
  
  문영미 wrote: > 안녕하세요! > > Server Name, User Name, Password 값을 상수로 받아서 > Database...
- 심형성
- •
- 1999.11.27 21:10
- 1 COMMENTS
- /
- 0 LIKES
메일을 보내려면..
- 류한규
  
  •
  
  1999.11.27 21:21
  
  안녕하십니까? 메일 처리를 위해서는 델파이의 SMTP(전송), POP3(수신) 콤포넌트를 이용하시면 간단...
- 심형성
- •
- 1999.11.27 20:47
- 1 COMMENTS
- /
- 0 LIKES
폼을 항상 컴 오른쪽 위에 띄우려면...?
- 류한규
  
  •
  
  1999.11.27 21:11
  
  안녕하십니까? procedure TForm1.Button1Click(Sender: TObject); begin Left := Screen.Width - ...
- 이은주
- •
- 1999.11.27 20:31
- 2 COMMENTS
- /
- 0 LIKES
activeX 의 addtional file...
- bluechip
  
  •
  
  1999.11.28 06:23
  
  이은주 wrote: > 안녕하세요. activeX를 마악 개발하려는 초보입니다. > > 제 경우는 제가 만든 activ...
- 이은주
  
  •
  
  1999.11.29 18:52
  
  답변 감사합니다. 많이 도움이 되었어요. 그런데 한가지만 더 여쭐께요. DestDir=11로 하면 windowssy...
- 장성호
- •
- 1999.11.27 20:27
- 1 COMMENTS
- /
- 0 LIKES
db를 합치는 법?
- 김연수
  
  •
  
  1999.11.27 22:28
  
  콤포넌트중에 BatchMove 라는 것이 있습니다. 그걸 쓰시면 쉽게 됩니다.
- 최시영
- •
- 1999.11.27 20:26
- 2 COMMENTS
- /
- 0 LIKES
마우스의 일정 좌표에서 클릭효과~~~~
- 김영대
  
  •
  
  1999.11.27 21:00
  
  최시영 wrote: > 화면의 어떤 좌표(x,y)에 클릭을 하고 싶으면 어떻게 하죠 ㅠ.ㅠ;;;; > > 아직은 모...
- seoulite
  
  •
  
  2000.03.15 04:54
  
  여기 게시판에서 무대뽀로 열심히 배우고 있습니다 짱 좋은 모임입니다... 단순히 컨트롤에 클릭 메...
- 김재현
- •
- 1999.11.27 20:20
- 1 COMMENTS
- /
- 0 LIKES
[급질문]Unit Form에서 생성된 Class Method override방식은 뭐죠?

안녕하세요... 초보자라 엉뚱한 부분에서 막혀서 고수님들께 조심스레 조언을 구하고져합니다.. 클래스(TToppanel)에서 procedure의 형태만 만들어주고, form에서 TToppanel위에 speedButton을 click시에 다른 Event를 발생시켜려 합니다....
- 김재현
  
  •
  
  1999.11.29 21:45
  
  김재현 wrote: > 안녕하세요... > 초보자라 엉뚱한 부분에서 막혀서 고수님들께 조심스레 조언을 ...
- 최석기
- 1999.11.27 20:11
- 0 COMMENTS
- /
- 0 LIKES
MTS와 MSMQ
- 살아있는의문부호?
- •
- 1999.11.27 20:07
- 2 COMMENTS
- /
- 0 LIKES
Delphi5의 Ctl3D프로퍼티????이상??
- 이정욱
  
  •
  
  1999.12.03 22:21
  
  악.. 죄송합니다. 방금 발견했는데.. 흑.. 델파이 프로퍼티쉬트에서 마우스 오른쪽 버튼을 누르면 팝업...
- 이정욱
  
  •
  
  1999.11.29 07:25
  
  델5에선 없어졌습니다. 예전버전에는 윈3.1을 위해 존재하던 프로퍼티였으니 이젠 필요없어졌다라고 결정...
- 여용구
- 1999.11.27 20:06
- 0 COMMENTS
- /
- 0 LIKES
[급]ChartFx에서... .<왕초보>
- 노인기
- •
- 1999.11.27 19:51
- 2 COMMENTS
- /
- 0 LIKES
메세지 박스에 관해서...
- 류한규
  
  •
  
  1999.11.27 21:08
  
  안녕하십니까? 메세지 박스가 나온 상태에서 Help(F1, Help Button)를 나오게할때 Help Context ID입니...
- 김영대
  
  •
  
  1999.11.27 21:06
  
  노인기 wrote: > messagedlg에서 마지막에 0 을 써주는 데..... > messagedlg('궁금해서',mterror,[mbok]...
- wendyboy
- •
- 1999.11.27 19:34
- 1 COMMENTS
- /
- 0 LIKES
웹으로 변환하고 싶은데 도움좀.......
- sdfsdf
  
  •
  
  1999.11.29 05:03
  
  wendyboy wrote: > 프로그램을 웹으로 올려서 사용할려고 하고, db ocx도 사용할려고 합니다. > 변환해서...
- Lucifer
- •
- 1999.11.27 17:44
- 1 COMMENTS
- /
- 0 LIKES
[프린트 관련 질문]프린트 용지 설정
- 류한규
  
  •
  
  1999.11.27 18:20
  
  퀵리포트에서 용지설정은 TQuickRep.Page.PaperSize를 Custom으로 설정하시고 TQuickRep.Page.Length ...
- 문영미
- •
- 1999.11.27 05:58
- 1 COMMENTS
- /
- 0 LIKES
BDE Alias 사용하지 않고 Oracle 연결하기
- 김연수
  
  •
  
  1999.11.27 07:58
  
  문영미 wrote: > 안녕하세요! > 요번엔 DB 연결 문제입니다. > > 우선, BDE alias를 설정 하고 실행 ...
- 이정현
- •
- 1999.11.27 05:30
- 1 COMMENTS
- /
- 0 LIKES
이미지의 Thumbnail 구현
- 이정욱
  
  •
  
  1999.11.27 08:25
  
  Thumbnail을 여러가지 포맷의 그림들을 지원하는 이미지 라이브러리라는 것이 있습니다. ImageLib Corpera...
- 현경
- •
- 1999.11.27 04:59
- 2 COMMENTS
- /
- 0 LIKES
Modal Form 불러오기
- 류한규
  
  •
  
  1999.11.27 18:05
  
  안녕하십니까? HBSC101CF의 FormStyle이 MDIChild이군요 MDIChild Form을 ShowModal하면 'Cannot mak...
- 김석수
  
  •
  
  1999.11.27 18:00
  
  다음과 같이 한번 해보시기 바랍니다. procedure THBSC101F.btn_detailClick(Sender: TObject); begin ...
- smileye
- 1999.11.27 04:43
- 0 COMMENTS
- /
- 0 LIKES
Autoexec.bat 활용에 대하여...
- 또나네
- •
- 1999.11.27 04:24
- 1 COMMENTS
- /
- 0 LIKES
스트링그리드에서 포커스를...
- 이만준
  
  •
  
  1999.11.27 17:34
  
  또나네 wrote: > 저번에 제 질문에 답해주셔셔 대단히 감사합니다.. > 성원에 힘입어 이렇게 다시 한번 ...
- 김경은
- 1999.11.27 03:43
- 0 COMMENTS
- /
- 0 LIKES
[도와주세요]Text Type의 데이타 불러오기.
- 박성훈
- 1999.11.27 03:36
- 0 COMMENTS
- /
- 0 LIKES
에러좀 봐주세요!-잘못된 링크에러

김재현
1999/11/27 20:20
Views330

Likes0

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

2735 2736 2737 2738 2739 2740 2741 2742 2743 2744

Last Page→