Q&A
- [급!!!] Class Reference에 대한 급한 질문입니다.
안녕하세요. 델파이 동호회원 홍진혁입니다.
제가 구사하려는 것은 다음과 같습니다.
TPanel, TButton, TBitBtn 등등 50가지 정도의 VCL중 임의의 것을 Click하여
그 Click한 것과 똑같은 것을 동적으로 생성하려면 아래와 같이 Class Reference로
하는 것이 가장 적절하더군요.
type
CRefType = class of TControl;
var
ClassRef: CRefType;
procedure ObjectClick(Sender : TObject);
begin
if Sender is TPanel then ClassRef := TPanel
else if Sender is TButton then ClassRef := TButton
{ 등등등 }
end;
위의 procedure를 각 VCL의 OnClick Event Handler에 대입하면 Click하는 Sender의 Class Type을 알수가 있습니다. 그래서 Click한 Object와 똑같은 Object를 동적으로 생성하려면
ClassRef.Create(Application);
와 같이 간단하게 구현할 수가 있습니다.
그러나, 문제는 그 Class Type (ClassRef.ClassName)을 알더라도 Sender에 따라 어떤 속성을 바꾸어 주려면 아래의 예제와 같이 일일이 Sender = Txxx 및 with(Sender)로 하여 장황하게 코딩을 해주어야만 합니다. (방법이 있는지 몰라 저의 경우는 일일이 case by case로 코딩을 하고 있습니다.) 그래서, 코딩하는 라인이 기하급수적으로 늘어납니다.
if Sender is TPanel then begin
with TPanel(Sender) do
begin
if x < 5 then begin
if y < 5 then begin
Cursor := crSizeNWSE; SC_COMMAND := SC_LEFT_TOP;
end else if y > height-5 then begin
Cursor := crSizeNESW; SC_COMMAND := SC_LEFT_BOTTOM;
end else begin
Cursor := crSizeWE; SC_COMMAND := SC_LEFT;
end;
end else if x > width-5 then begin
if y < 5 then begin
Cursor := crSizeNESW; SC_COMMAND := SC_RIGHT_TOP;
end else if y > height-5 then begin
Cursor := crSizeNWSE; SC_COMMAND := SC_RIGHT_BOTTOM;
end else begin
Cursor := crSizeWE; SC_COMMAND := SC_RIGHT;
end;
end else begin
if y < 5 then begin
Cursor := crSizeNS; SC_COMMAND := SC_TOP;
end else if y > height-5 then begin
Cursor := crSizeNS; SC_COMMAND := SC_BOTTOM;
end else begin
Cursor := crDefault; SC_COMMAND := SC_DRAGMOVE;
end;
end;
end;
TPanel(Sender).Perform(WM_SysCommand, SC_Command, 0);
end
else if Sender is TButton then begin
with TButton(Sender) do
begin
if x < 5 then begin
if y < 5 then begin
Cursor := crSizeNWSE; SC_COMMAND := SC_LEFT_TOP;
end else if y > height-5 then begin
Cursor := crSizeNESW; SC_COMMAND := SC_LEFT_BOTTOM;
end else begin
Cursor := crSizeWE; SC_COMMAND := SC_LEFT;
end;
end else if x > width-5 then begin
if y < 5 then begin
Cursor := crSizeNESW; SC_COMMAND := SC_RIGHT_TOP;
end else if y > height-5 then begin
Cursor := crSizeNWSE; SC_COMMAND := SC_RIGHT_BOTTOM;
end else begin
Cursor := crSizeWE; SC_COMMAND := SC_RIGHT;
end;
end else begin
if y < 5 then begin
Cursor := crSizeNS; SC_COMMAND := SC_TOP;
end else if y > height-5 then begin
Cursor := crSizeNS; SC_COMMAND := SC_BOTTOM;
end else begin
Cursor := crDefault; SC_COMMAND := SC_DRAGMOVE;
end;
end;
end;
TButton(Sender).Perform(WM_SysCommand, SC_Command, 0);
end
{등등등}
제 생각에는 ClassRef.Create()와 같이 Class Reference의 개념과 유사한 방법으로 위의 문제를 간단히 한번만 코딩할수 있을 것 같은데 그게 잘 안되더군요.
이런 문제를 해결하기 위해서는 어떻게 해야 하는지 알고계신 전문가가 계시면 답변 부탁드립니다.
제가 구사하려는 것은 다음과 같습니다.
TPanel, TButton, TBitBtn 등등 50가지 정도의 VCL중 임의의 것을 Click하여
그 Click한 것과 똑같은 것을 동적으로 생성하려면 아래와 같이 Class Reference로
하는 것이 가장 적절하더군요.
type
CRefType = class of TControl;
var
ClassRef: CRefType;
procedure ObjectClick(Sender : TObject);
begin
if Sender is TPanel then ClassRef := TPanel
else if Sender is TButton then ClassRef := TButton
{ 등등등 }
end;
위의 procedure를 각 VCL의 OnClick Event Handler에 대입하면 Click하는 Sender의 Class Type을 알수가 있습니다. 그래서 Click한 Object와 똑같은 Object를 동적으로 생성하려면
ClassRef.Create(Application);
와 같이 간단하게 구현할 수가 있습니다.
그러나, 문제는 그 Class Type (ClassRef.ClassName)을 알더라도 Sender에 따라 어떤 속성을 바꾸어 주려면 아래의 예제와 같이 일일이 Sender = Txxx 및 with(Sender)로 하여 장황하게 코딩을 해주어야만 합니다. (방법이 있는지 몰라 저의 경우는 일일이 case by case로 코딩을 하고 있습니다.) 그래서, 코딩하는 라인이 기하급수적으로 늘어납니다.
if Sender is TPanel then begin
with TPanel(Sender) do
begin
if x < 5 then begin
if y < 5 then begin
Cursor := crSizeNWSE; SC_COMMAND := SC_LEFT_TOP;
end else if y > height-5 then begin
Cursor := crSizeNESW; SC_COMMAND := SC_LEFT_BOTTOM;
end else begin
Cursor := crSizeWE; SC_COMMAND := SC_LEFT;
end;
end else if x > width-5 then begin
if y < 5 then begin
Cursor := crSizeNESW; SC_COMMAND := SC_RIGHT_TOP;
end else if y > height-5 then begin
Cursor := crSizeNWSE; SC_COMMAND := SC_RIGHT_BOTTOM;
end else begin
Cursor := crSizeWE; SC_COMMAND := SC_RIGHT;
end;
end else begin
if y < 5 then begin
Cursor := crSizeNS; SC_COMMAND := SC_TOP;
end else if y > height-5 then begin
Cursor := crSizeNS; SC_COMMAND := SC_BOTTOM;
end else begin
Cursor := crDefault; SC_COMMAND := SC_DRAGMOVE;
end;
end;
end;
TPanel(Sender).Perform(WM_SysCommand, SC_Command, 0);
end
else if Sender is TButton then begin
with TButton(Sender) do
begin
if x < 5 then begin
if y < 5 then begin
Cursor := crSizeNWSE; SC_COMMAND := SC_LEFT_TOP;
end else if y > height-5 then begin
Cursor := crSizeNESW; SC_COMMAND := SC_LEFT_BOTTOM;
end else begin
Cursor := crSizeWE; SC_COMMAND := SC_LEFT;
end;
end else if x > width-5 then begin
if y < 5 then begin
Cursor := crSizeNESW; SC_COMMAND := SC_RIGHT_TOP;
end else if y > height-5 then begin
Cursor := crSizeNWSE; SC_COMMAND := SC_RIGHT_BOTTOM;
end else begin
Cursor := crSizeWE; SC_COMMAND := SC_RIGHT;
end;
end else begin
if y < 5 then begin
Cursor := crSizeNS; SC_COMMAND := SC_TOP;
end else if y > height-5 then begin
Cursor := crSizeNS; SC_COMMAND := SC_BOTTOM;
end else begin
Cursor := crDefault; SC_COMMAND := SC_DRAGMOVE;
end;
end;
end;
TButton(Sender).Perform(WM_SysCommand, SC_Command, 0);
end
{등등등}
제 생각에는 ClassRef.Create()와 같이 Class Reference의 개념과 유사한 방법으로 위의 문제를 간단히 한번만 코딩할수 있을 것 같은데 그게 잘 안되더군요.
이런 문제를 해결하기 위해서는 어떻게 해야 하는지 알고계신 전문가가 계시면 답변 부탁드립니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 한현숙
- •
- 2001.06.27 19:45
- 7 COMMENTS
- /
- 0 LIKES
-
지나는이•2001.06.27 21:38 -
한현숙•2001.06.27 22:29
-
이재식•2001.06.27 22:33
-
한현숙•2001.06.28 02:43
-
이재식•2001.06.28 06:06
-
한현숙•2001.06.28 18:55
-
이재식•2001.06.28 23:15
-
- blackjewel
- 2001.06.27 19:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 신호
- 2001.06.27 19:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- •
- 2001.06.27 18:48
- 1 COMMENTS
- /
- 0 LIKES
-
델맨•2001.06.27 20:29궁금이 wrote: > 메뉴를 동적으로 생성해주고 각 메뉴를 클릭했을때 해당 폼이 뜨게하려고 합니다 > ====...
-
-
왕초보•2001.06.27 18:32killer wrote: > 다음과 같은 VB Source가 있다면 델파이로 어떻게 코딩합니까? > > Dim AAA As New...
-
-
- 김남영
- 2001.06.27 13:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 황준영
- 2001.06.27 10:58
- 0 COMMENTS
- /
- 0 LIKES
-
- optech
- •
- 2001.06.27 10:48
- 1 COMMENTS
- /
- 0 LIKES
-
토맛토•2001.06.27 19:30TSmtpRelayServer는 잘 모르겠습니다만 메일 서버 없이 메일을 보내는 방법은 그다지 어렵지 않습니다. ...
-
- 델초짜!
- •
- 2001.06.27 10:02
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.06.28 04:13델초짜! wrote: > Table1의 Post를 취소 하기 위해 BeforePost 함수에 Table1.Cancel을 넣으니 그래도 Pos...
-
- 홍진혁
- •
- 2001.06.27 09:29
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요. 델파이 동호회원 홍진혁입니다. 제가 구사하려는 것은 다음과 같습니다. TPanel, TButton, TBitBtn 등등 50가지 정도의 VCL중 임의의 것을 Click하여 그 Click한 것과 똑같은 것을 동적으로 생성하려면 아래와 같이 Class Ref...-
델맨•2001.06.27 20:46홍진혁 wrote: > 안녕하세요. 델파이 동호회원 홍진혁입니다. > > 제가 구사하려는 것은 다음과 같습니...
-
- 다롱이
- •
- 2001.06.27 08:52
- 1 COMMENTS
- /
- 0 LIKES
-
정성훈•2001.06.27 18:11다롱이 wrote: > 제가 MS-WORD VIEWER를 작성하고 싶습니다. 그러니까 *.DOC 문서화일을 불러와서 보기와 ...
-
- redangel
- •
- 2001.06.27 06:21
- 2 COMMENTS
- /
- 0 LIKES
-
강호규•2001.06.27 17:49글쎄요... 일반적으로 이 에러는 에러 메시지 그대로 입니다. 접근위반(?)을 했다는 뜻이 거든요. 없는...
-
이경문•2001.06.28 11:13runtime error 216 at 0002FA4" 요 에러는요, 컴파일러가 불안정할 때 생기더라구요. Ctrl-F2로 프로그램...
-
- 시스템
- 2001.06.27 06:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.06.27 05:44
- 1 COMMENTS
- /
- 0 LIKES
-
파도랑•2001.12.11 00:38Delphi5 이상의 Desktop 기능을 사용하시면 가능합니다... 먼저 원하는 화면 모양을 다 만들어놓고 제...
-
- 델초
- •
- 2001.06.27 05:39
- 1 COMMENTS
- /
- 0 LIKES
-
뽀록이•2001.06.27 22:24님의 대해 답변이 될지 모르겠습니다. 처음 시작하는 부분이 숫자 12와 한글한자로 무조건 되어 있으면 ...
-
- bibic
- 2001.06.27 05:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 황정선
- 2001.06.27 04:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 시작한지 1주일
- 2001.06.27 04:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 황도성
- 2001.06.27 03:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 나연희
- 2001.06.27 02:59
- 0 COMMENTS
- /
- 0 LIKES
> 안녕하세요. 델파이 동호회원 홍진혁입니다.
>
> 제가 구사하려는 것은 다음과 같습니다.
> TPanel, TButton, TBitBtn 등등 50가지 정도의 VCL중 임의의 것을 Click하여
> 그 Click한 것과 똑같은 것을 동적으로 생성하려면 아래와 같이 Class Reference로
> 하는 것이 가장 적절하더군요.
>
> type
> CRefType = class of TControl;
>
> var
> ClassRef: CRefType;
>
> procedure ObjectClick(Sender : TObject);
> begin
> if Sender is TPanel then ClassRef := TPanel
> else if Sender is TButton then ClassRef := TButton
> { 등등등 }
> end;
>
> 위의 procedure를 각 VCL의 OnClick Event Handler에 대입하면 Click하는 Sender의 Class Type을 알수가 있습니다. 그래서 Click한 Object와 똑같은 Object를 동적으로 생성하려면
> ClassRef.Create(Application);
> 와 같이 간단하게 구현할 수가 있습니다.
>
> 그러나, 문제는 그 Class Type (ClassRef.ClassName)을 알더라도 Sender에 따라 어떤 속성을 바꾸어 주려면 아래의 예제와 같이 일일이 Sender = Txxx 및 with(Sender)로 하여 장황하게 코딩을 해주어야만 합니다. (방법이 있는지 몰라 저의 경우는 일일이 case by case로 코딩을 하고 있습니다.) 그래서, 코딩하는 라인이 기하급수적으로 늘어납니다.
>
> if Sender is TPanel then begin
> with TPanel(Sender) do
> begin
> if x < 5 then begin
> if y < 5 then begin
> Cursor := crSizeNWSE; SC_COMMAND := SC_LEFT_TOP;
> end else if y > height-5 then begin
> Cursor := crSizeNESW; SC_COMMAND := SC_LEFT_BOTTOM;
> end else begin
> Cursor := crSizeWE; SC_COMMAND := SC_LEFT;
> end;
> end else if x > width-5 then begin
> if y < 5 then begin
> Cursor := crSizeNESW; SC_COMMAND := SC_RIGHT_TOP;
> end else if y > height-5 then begin
> Cursor := crSizeNWSE; SC_COMMAND := SC_RIGHT_BOTTOM;
> end else begin
> Cursor := crSizeWE; SC_COMMAND := SC_RIGHT;
> end;
> end else begin
> if y < 5 then begin
> Cursor := crSizeNS; SC_COMMAND := SC_TOP;
> end else if y > height-5 then begin
> Cursor := crSizeNS; SC_COMMAND := SC_BOTTOM;
> end else begin
> Cursor := crDefault; SC_COMMAND := SC_DRAGMOVE;
> end;
> end;
> end;
> TPanel(Sender).Perform(WM_SysCommand, SC_Command, 0);
> end
> else if Sender is TButton then begin
> with TButton(Sender) do
> begin
> if x < 5 then begin
> if y < 5 then begin
> Cursor := crSizeNWSE; SC_COMMAND := SC_LEFT_TOP;
> end else if y > height-5 then begin
> Cursor := crSizeNESW; SC_COMMAND := SC_LEFT_BOTTOM;
> end else begin
> Cursor := crSizeWE; SC_COMMAND := SC_LEFT;
> end;
> end else if x > width-5 then begin
> if y < 5 then begin
> Cursor := crSizeNESW; SC_COMMAND := SC_RIGHT_TOP;
> end else if y > height-5 then begin
> Cursor := crSizeNWSE; SC_COMMAND := SC_RIGHT_BOTTOM;
> end else begin
> Cursor := crSizeWE; SC_COMMAND := SC_RIGHT;
> end;
> end else begin
> if y < 5 then begin
> Cursor := crSizeNS; SC_COMMAND := SC_TOP;
> end else if y > height-5 then begin
> Cursor := crSizeNS; SC_COMMAND := SC_BOTTOM;
> end else begin
> Cursor := crDefault; SC_COMMAND := SC_DRAGMOVE;
> end;
> end;
> end;
> TButton(Sender).Perform(WM_SysCommand, SC_Command, 0);
> end
> {등등등}
>
> 제 생각에는 ClassRef.Create()와 같이 Class Reference의 개념과 유사한 방법으로 위의 문제를 간단히 한번만 코딩할수 있을 것 같은데 그게 잘 안되더군요.
> 이런 문제를 해결하기 위해서는 어떻게 해야 하는지 알고계신 전문가가 계시면 답변 부탁드립니다.
>
클레스 참조자의 활용이 그렇게 자유로움을 준다고 생각진 않습니다.
다만 델파이가 VCL을 다루는것을 보면 임의의 컴포넌트를 생성했을때 그 객체를
조작하기위해 RTTI를 문자열로 접근하는것을 발견할수 있습니다.
사실 델파이가 표준 VCL을 조작할때는 published 프로퍼티만이 조작됩니다.
기타 public이나 메소드등은 접근조차 하지 않습니다.
RTTI는 그 객체가 무슨타입인지 몰라도 published 프로퍼티를 접근할수 있게 합니다.
또한 프로퍼티를 문자열명으로 접근할수 있도록 해줍니다.
그와 관련된 함수는 typinfo.pas 유닛에 있습니다.