Q&A
- TForm에 관한 질문입니다.
폼이 있습니다..
그위에 Notebook을 놓고 그안에
GroupBox를 놓고 그안에 BitBtn 버튼을 놓았습니다..
문제는 여기에 있습니다..
이 버튼의 실제 Left 값을 계산하려고 합니다..
버튼의 Left 값에다가 GroupBox의 Left 및 Notebook의 Left를 더해줘야
실제로의 버튼의 Left 값이 되는거 잖아요..
그래서.. 이렇게 계산을 하거든요..
(Sender as TBitBtn).Parent.Left + (Sender as TBitBtn). Parent.Parent.Left
+ (Sender as TBitBtn). Parent.Parent.Parent.Left 식으로 계산을 합니다..
문제는 여기에 있습니다..
if (Sender as TBitBtn).HasParent and
((Sender as TBitBtn).Parent.ClassType <> TForm) then
sLeft := sLeft + (Sender as TBitBtn).Parent.Left;
if (Sender as TBitBtn).Parent.HasParent and
((Sender as TBitBtn).Parent.Parent.ClassType <> TForm) then
sLeft := sLeft + (Sender as TBitBtn).Parent.Parent.Left;
if (Sender as TBitBtn).Parent.Parent.HasParent and
((Sender as TBitBtn).Parent.Parent.Parent.ClassType <> TForm) then
sLeft := sLeft + (Sender as TBitBtn).Parent.Parent.Left;
대충 이런식인데.. 분명이 Parent가 TForm인데도 값을 더해서 계산을 합니다..
Parent가 Form인지 아닌지 구분을 달리해야 하는지.. 아니면.. 다른방법이
있는지.. 아시는 분은 답좀해주세요..
그럼 즐프하세요..
그위에 Notebook을 놓고 그안에
GroupBox를 놓고 그안에 BitBtn 버튼을 놓았습니다..
문제는 여기에 있습니다..
이 버튼의 실제 Left 값을 계산하려고 합니다..
버튼의 Left 값에다가 GroupBox의 Left 및 Notebook의 Left를 더해줘야
실제로의 버튼의 Left 값이 되는거 잖아요..
그래서.. 이렇게 계산을 하거든요..
(Sender as TBitBtn).Parent.Left + (Sender as TBitBtn). Parent.Parent.Left
+ (Sender as TBitBtn). Parent.Parent.Parent.Left 식으로 계산을 합니다..
문제는 여기에 있습니다..
if (Sender as TBitBtn).HasParent and
((Sender as TBitBtn).Parent.ClassType <> TForm) then
sLeft := sLeft + (Sender as TBitBtn).Parent.Left;
if (Sender as TBitBtn).Parent.HasParent and
((Sender as TBitBtn).Parent.Parent.ClassType <> TForm) then
sLeft := sLeft + (Sender as TBitBtn).Parent.Parent.Left;
if (Sender as TBitBtn).Parent.Parent.HasParent and
((Sender as TBitBtn).Parent.Parent.Parent.ClassType <> TForm) then
sLeft := sLeft + (Sender as TBitBtn).Parent.Parent.Left;
대충 이런식인데.. 분명이 Parent가 TForm인데도 값을 더해서 계산을 합니다..
Parent가 Form인지 아닌지 구분을 달리해야 하는지.. 아니면.. 다른방법이
있는지.. 아시는 분은 답좀해주세요..
그럼 즐프하세요..
(NOTICE) You must be logged in to comment on this post.
-
-
- 고가람
- •
- 2003.04.30 09:46
- •
- 1 COMMENTS
- /
- 0 LIKES
-
이중철•2003.04.30 11:24CheckBox Create 할때 Visible 을 False 하고 DrawCell할때 Visible을 True 하면 되긴되는데 쩝. 전 스...
-
- KDDG_hyun
- •
- 2003.04.30 07:43
- 1 COMMENTS
- /
- 0 LIKES
-
이중철•2003.04.30 08:09먼저 스트링의 구조부터 말씀 드릴께요.. 일반 스트링은 (여기서 Src : string)... string은 255Byte를 ...
-
- 최풍길
- 2003.04.30 07:17
- 0 COMMENTS
- /
- 0 LIKES
-
- KDDG_hyun
- •
- 2003.04.30 06:54
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_Check•2003.04.30 19:16
-
- 쏘녕쓰
- •
- 2003.04.30 06:32
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_hyun•2003.04.30 06:57datasource 콤포를 쓰세요.. 쿼리 - datasource - 그리드 순서로 연결 하시면 될겁니다.. ...
-
- 백승천
- 2003.04.30 05:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 김정민
- •
- 2003.04.30 05:33
- 3 COMMENTS
- /
- 0 LIKES
-
김정민•2003.04.30 18:54아래 답변과 같이 처리해도 달라지는게 없습니다. 참고로 2번 문장을 그냥 델파이 폼에 작성하면 메...
-
이중철•2003.04.30 07:37먼저 1번이 문제인것 같네요 SendMessage(HWND_BROADCAST, WM_COMMAND, WM_USER + 201, 0); 보낼때 ...
-
이중철•2003.04.30 22:04웹환경의 ActiveForm 인줄 몰랐어요.. 이쪽 프로그램밍을 거의 안해봐서 인지를 못했네요. 그런데 정방법...
-
- help me
- 2003.04.30 05:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 이종택
- 2003.04.30 05:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 박준철
- •
- 2003.04.29 23:42
- 1 COMMENTS
- /
- 0 LIKES
-
오병주•2003.04.30 01:48
-
- delcho
- 2003.04.30 03:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 류제규
- •
- 2003.04.30 02:30
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2003.09.02 18:34안녕하세요. 타락임다. 안된다고 생각하세요. Win9X 계열이라면 가능할 수도 있지만, WinNT 계열에선...
-
- 이강석
- •
- 2003.04.30 02:28
- 2 COMMENTS
- /
- 0 LIKES
-
김진용•2003.05.09 18:15font 의 charset 값이 아마 ansi_charset으로 되어 있을껍니다.. 이것을 default_charset 이나 ,hangeul_ch...
-
조운석•2003.04.30 22:53XP쓰신다면 폰트에 한글 케릭터셋으로 셋팅하시고 다시 컴파일 해서 98에서 실행해보세요..^^*
-
- 한영란
- •
- 2003.04.30 01:51
- 1 COMMENTS
- /
- 0 LIKES
-
한영란•2003.04.30 03:39사실 제가 C소스를 델파이버전으로 번역하느라 너무 문구에 매여 이런 불상사를 초래했나봐요. GetMem...
-
- LuckyBoy
- •
- •
- 2003.04.30 01:28
- 2 COMMENTS
- /
- 4 LIKES
폼이 있습니다.. 그위에 Notebook을 놓고 그안에 GroupBox를 놓고 그안에 BitBtn 버튼을 놓았습니다.. 문제는 여기에 있습니다.. 이 버튼의 실제 Left 값을 계산하려고 합니다.. 버튼의 Left 값에다가 GroupBox의 Left 및 Notebook의 Left...-
프리맨•2003.04.30 07:54그냥 ClientToScreen을 쓰시지요.. var p:TPoint; p:=Button1.ClientToScreen(Point(0,0)); 이렇...
-
꿈의대화•2003.04.30 02:17.
-
- 궁금이
- 2003.04.30 01:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 박대석
- •
- 2003.04.30 00:46
- 2 COMMENTS
- /
- 0 LIKES
-
박대석•2003.05.12 18:46이문제 해결 했습니다. DBGRID문제입니다. DBGRID에서 Editing작업을 수행하는 프로그램이 있으면 이 문...
-
한원희•2003.05.01 01:41안녕하세요. 한원희입니다. 저도 그런 경험이 있어서 참고로 말씀드리겠습니다. 제 경우, 프로그램이...
-
- 조정연
- 2003.04.30 00:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 정우성
- 2003.04.30 00:12
- 0 COMMENTS
- /
- 0 LIKES
var p:TPoint;
p:=Button1.ClientToScreen(Point(0,0));
이렇게 하면 버튼의 실제 화면상의 위치(x,y)가 반환됩니다.
폼에서 버튼의 위치를 구하려면 여기에다 폼의 위치만 빼주면 됩니다.
p.x:=p.x-Form1.left;
p.y:=p.y-Form1.Top;
폼의 클라이언트 좌표를 기준으로 한다면 ClientOrigin을 뺍니다.
p.x:=p.x-Form1.ClientOrigin.X;
p.y:=p.y-Form1.ClientOrigin.Y;