Q&A
- formstyle 이 bsnone 인 경우 마우스로 폼의 크기 변경하는 방법?
제목과 같습니다.
formstyle 이 bsnone 인 경우에 마우스로 폼의 크기를 변경하고자 합니다.
여기 묻고 답하기를 전부 검색했습니다만,
시삽님이 답변을 올리신것이 있는데..링크가 깨져있어서..알수가 없네요.
아시는분 답변 부탁드리겠습니다.
수고하세요..
formstyle 이 bsnone 인 경우에 마우스로 폼의 크기를 변경하고자 합니다.
여기 묻고 답하기를 전부 검색했습니다만,
시삽님이 답변을 올리신것이 있는데..링크가 깨져있어서..알수가 없네요.
아시는분 답변 부탁드리겠습니다.
수고하세요..
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이창재
- •
- 2005.03.03 06:57
- •
- 3 COMMENTS
- /
- 0 LIKES
-
임형호•2005.03.03 17:48 -
강재규•2005.03.04 01:50with Query1 do begin Close; Try ...
-
이창재•2005.03.04 02:53ㅁㅁ
-
- 김영석
- •
- 2005.03.03 00:47
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2005.03.03 02:56안녕하세요. 최용일입니다. 1번이 실패해서 OCX가 등록이 되지 않으니 2번이 이상하게 표시가 된거 같구...
-
김영석•2005.03.03 07:06감사합니다...정말 감사합니다. 소주라도 한 잔 사드리고 싶습니다. 정말 감사합니다. 시삽님 파이팅!!!!
-
- 류금석
- 2005.03.02 22:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 이창재
- •
- 2005.03.02 21:13
- 3 COMMENTS
- /
- 0 LIKES
-
착한천사•2005.03.03 03:35착한천사 김경록입니다.. desktop database라는건 어떤걸 말하는지 잘 모르겠군요.. 혹시, delphi에 딸...
-
이창재•2005.03.03 05:08답변감사합니다.. interbase -> 델파이에 딸려오죠? 무료DB PostSQL -> BSD계열 그렇...
-
모영철•2005.03.03 18:32postsql은 뭔지 모르겠지만. 파이어버드 강추입니다. 잠깐 깔아보고 써보고 햇는데.. 상당히 좋았던걸로 ...
-
- 양용호
- •
- 2005.03.02 20:33
- 3 COMMENTS
- /
- 0 LIKES
-
박지용•2005.03.04 22:49Privider의 Property중에 poAllowCommandText 이녀셕을 True 해주어야 됩니다. ...
-
박지용•2005.03.04 22:52TDataSetProvider => dsp.Option.poAllowCommandText := True 이녀셕을 True 해주어야&...
-
양용호•2005.03.05 10:30감사합니다.
-
- 임정윤
- 2005.03.02 20:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 조정민
- 2005.03.02 19:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 신철우
- •
- 2005.03.02 19:14
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2005.03.02 19:50안녕하세요. 최용일입니다. 그냥 폼의 BorderIcons속성에서 biMaximize를 Flase로 하시면 될것 같은데요...
-
- Galaxy
- •
- 2005.03.02 19:07
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2005.03.02 19:49안녕하세요. 최용일입니다. ControlSizerExit는 조절점이 포커스를 잃을때 발생하고, 또한 조절점 자체...
-
Galaxy•2005.03.02 20:34안녕하세요 답변에 감사 드립니다. 아래 질문들은 동적으로 생성된 여러 콤포넌트를 해제를 하고 싶습...
-
- 양용호
- 2005.03.02 10:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 최지훈
- 2005.03.02 09:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 주웰
- •
- 2005.03.02 06:19
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2005.03.02 19:45안녕하세요. 최용일입니다. 기본적으로 유닛이름과 같은 이름의 dcr파일이 있으면 자동으로 추가되는데....
-
주웰•2005.03.03 08:27최용일님 정말 감사드립니다... 어떻게 보면 기본적인 것을 한참이나 찾아 헤메이고 있었네요 코딩하는것...
-
- 가우나라
- •
- 2005.03.02 05:24
- 1 COMMENTS
- /
- 0 LIKES
제목과 같습니다. formstyle 이 bsnone 인 경우에 마우스로 폼의 크기를 변경하고자 합니다. 여기 묻고 답하기를 전부 검색했습니다만, 시삽님이 답변을 올리신것이 있는데..링크가 깨져있어서..알수가 없네요. 아시는분 답변 부탁드리겠...-
최용일•2005.03.02 19:43안녕하세요. 최용일입니다. 링크는 깨져 있지만... 검색을 하시면 되는데... <!--CodeS--> ty...
-
- 주진호
- •
- 2005.03.01 22:52
- 1 COMMENTS
- /
- 0 LIKES
-
박상윤•2005.03.04 00:27컬러일가요.. 그레이일까여. 어느것이냐 에 따라서.... 많이 틀려지져 암튼.... 그레이라면(8비트),....
-
-
박성준•2005.03.01 19:01안녕하세요? 땅콩맨, 박성준입니다. 간단한 '100일후 출력 프로그램'을 등록하오니 참조하여 주시기 바...
-
-
- Galaxy
- 2005.03.01 03:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 양용호
- •
- 2005.02.28 19:15
- 3 COMMENTS
- /
- 0 LIKES
-
박지용•2005.02.28 21:49Zeos가 TClientDataSet 잘 인터페이스되는것 같습니다... 제 견해로는 프로바이더/리졸버 ...
-
XenSen•2005.02.28 21:15mysql 설치시 원격접근이가능하도록 host부분에 % 를 두시거나 IP를 적고요 크라이언트 프로그램을 작동하...
-
양용호•2005.03.01 08:14답변 감사드립니다. MySQL 서버에 외부접속이 안되는 것은 MySQL 서버를 관리하는 쪽에서 정책적으로 그렇...
-
- 힌곰
- •
- 2005.02.28 18:46
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2005.03.01 03:01안녕하세요. 뭐 급하신 마음은 이해하겠지만... 제목은 질문내용을 요약해서 적어주시구요, 말머리를...
-
- 델사랑
- 2005.02.28 06:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 양용호
- 2005.02.28 03:24
- 0 COMMENTS
- /
- 0 LIKES
링크는 깨져 있지만... 검색을 하시면 되는데...
<!--CodeS-->
type
TForm1 = class(TForm)
......
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
end;
implementation
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
const
BorderSize = 4;
var
P: TPoint;
begin
P := Point(Message.XPos, Message.YPos);
P := ScreenToClient(P);
if (P.X < BorderSize) and (P.Y < BorderSize) then
Message.Result := htTopLeft
else if (P.X > Width - BorderSize) and (P.Y < BorderSize) then
Message.Result := htTopRight
else if (P.X > Width - BorderSize) and (P.Y > Height - BorderSize) then
Message.Result := htBottomRight
else if (P.X < BorderSize) and (P.Y > Height - BorderSize) then
Message.Result := htBottomLeft
else if (P.X < BorderSize) then
Message.Result := htLeft
else if (P.Y < BorderSize) then
Message.Result := htTop
else if (P.X > Width - BorderSize) then
Message.Result := htRight
else if (P.Y > Height - BorderSize) then
Message.Result := htBottom
else
inherited;
end;
<!--CodeE-->
^^ 항상 즐코하세요...