Q&A
- 드래그를 판넬영역안에서 옮기기...?
제가 판넬 위에서 라벨을 드래그할수 있게 만들었습니다.
var
Form1: TForm1;
WndPos : TPoint;
//PanZip은 라벨이름입니다
procedure TForm1.PanZipMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
WndPos := Point(X, Y);
end;
procedure TForm1.PanZipMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ( ssLeft in Shift) then begin
TLabel( Sender ).Left := TLabel( Sender ).Left + X - WndPos.x;
TLabel( Sender ).Top := TLabel( Sender ).Top + Y - WndPos.y;
end;
판넬위에서 라벨을 움직이는것입니다. 판넬이름은 Pannel1입니다
위처럼 만들었긴 만들었는데 한가지 문제점은 라벨드래그를 판넬영역안에서만
드래그할수 잇게 하는겁니다. 지금은 판넬 밑으로 라벨이 들어갑니다
어떻게 하면 장난감 자동차가 벽이 있으면 더이상 앞으로 못가듯 드래그하는
라벨이 판넬 영역밖같으로 못나가게 할수 있을까요?
선배님들 가르쳐주세요
부탁합니다
var
Form1: TForm1;
WndPos : TPoint;
//PanZip은 라벨이름입니다
procedure TForm1.PanZipMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
WndPos := Point(X, Y);
end;
procedure TForm1.PanZipMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ( ssLeft in Shift) then begin
TLabel( Sender ).Left := TLabel( Sender ).Left + X - WndPos.x;
TLabel( Sender ).Top := TLabel( Sender ).Top + Y - WndPos.y;
end;
판넬위에서 라벨을 움직이는것입니다. 판넬이름은 Pannel1입니다
위처럼 만들었긴 만들었는데 한가지 문제점은 라벨드래그를 판넬영역안에서만
드래그할수 잇게 하는겁니다. 지금은 판넬 밑으로 라벨이 들어갑니다
어떻게 하면 장난감 자동차가 벽이 있으면 더이상 앞으로 못가듯 드래그하는
라벨이 판넬 영역밖같으로 못나가게 할수 있을까요?
선배님들 가르쳐주세요
부탁합니다
(NOTICE) You must be logged in to comment on this post.
-
- 손창환
- •
- 2002.10.08 09:44
- 1 COMMENTS
- /
- 0 LIKES
-
이추형•2002.10.08 19:25짧게 말씀드리면 property는 어떤 하나의 객체에 대한 속성입니다. 속성..OOP(Object Oriented Programmin...
-
- 성대현
- •
- 2002.10.08 09:35
- 2 COMMENTS
- /
- 0 LIKES
-
정경철•2002.10.08 22:44영상을 표시하는 부분의 Align 속성 값을 alClient 값으로 해보세요... alClient는 윈도우즈 크기에 따라 ...
-
신강섭•2002.10.08 22:42자료실에서 cf 플레이어 라는 것을 다운받아서 합 보세요... 실행되는 수준은 아드레날린을 본따만든것 같...
-
- 김평국
- •
- 2002.10.08 09:33
- 1 COMMENTS
- /
- 0 LIKES
-
이추형•2002.10.08 19:46네트웍 프린터라면 가능합니다. ip를 가지는 독립된 프린터를 말합니다.
-
- 델사랑
- •
- 2002.10.08 09:15
- 2 COMMENTS
- /
- 0 LIKES
제가 판넬 위에서 라벨을 드래그할수 있게 만들었습니다. var Form1: TForm1; WndPos : TPoint; //PanZip은 라벨이름입니다 procedure TForm1.PanZipMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer...-
홍성락•2002.10.08 12:03hsr///////////////////////////////////////////////////// 소스 정리 없이 해보았습니다. 수식보다는 ... -
델사랑•2002.10.08 20:46아직은 해보지는 않았지만 정말 감사합니다. 즐거운 하루 보내세요
-
- 김길남
- •
- 2002.10.08 07:40
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2002.10.08 12:18게시판에 찾아보시면 이유는 많겠지만 가장 흔한 문제로 ToolBar의 font속성이 한글을 지원하는것으로 설...
-
- 이재현
- •
- 2002.10.08 06:56
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2002.10.21 19:17안녕하세여. 타락임다. 우선 윈도에서 실행하는 프로세서 리스트를 얻어야 합니다. 그 담에 프로세서...
-
- 이재현
- 2002.10.08 06:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 칼짱
- •
- 2002.10.08 05:53
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2002.10.08 19:58안녕하세요. 최용일입니다. Type LIbrary에서 속성이나 메소드 추가하셔서 버튼이나 다른컴포넌트의 속...
-
칼짱•2002.10.09 20:27감사합니다. 용일님. ^^; 항상 가려운 곳을 긁어 주시는 군요. ^^; 잘 되었습니다. ^^;
-
- 이영근
- •
- 2002.10.08 05:42
- 2 COMMENTS
- /
- 0 LIKES
-
주병현•2002.10.08 10:17dialog의 onClose부분에서 현재 닫혀두 되는 상황인지 검사해서요 닫히면 않될경우 action:=caNone;로...
-
이영근•2002.10.08 18:27델파이의 세미콜론은 왜 c 와 다를까?......^^;;
-
- goodlsw
- •
- 2002.10.08 05:36
- 2 COMMENTS
- /
- 0 LIKES
-
김해우•2002.10.18 19:39델파이의 폼과 같은 소스입니다. 그러니까 델파이 실행하시면 Application만들면 되는데.. 단, 소스의 ...
-
최용일•2002.10.08 19:55안녕하세요. 최용일입니다. File/New해서 프로젝트 하나 만드시고 빈폼은 프로젝트에서 없애버리세요. ...
-
- 이원영
- •
- 2002.10.08 05:10
- 1 COMMENTS
- /
- 0 LIKES
-
최병철•2002.10.08 19:27서브 쿼리의 Union을 이용해서 보세요 아마 좋은 결과 있을것 입니다. 참고로 아래의 내역 결과로 볼...
-
- 초짜
- •
- 2002.10.08 03:41
- 1 COMMENTS
- /
- 0 LIKES
-
정경철•2002.10.08 22:52잘은 모르겠습니다. 혹시 이 숫자를 integer형으로 변환 하여 사용 할려고 하는지 모르겠습니다. intege...
-
- 장이욱
- 2002.10.08 03:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 발그미™
- •
- 2002.10.08 03:21
- 1 COMMENTS
- /
- 0 LIKES
-
신승철•2002.10.12 01:40간단하게 생각하세요. 디테일벤드한개가지고 가능합니다. 두칸이들어갈만한 크기로 height을 좀 크게늘린...
-
- 최여옥
- •
- 2002.10.08 02:58
- 1 COMMENTS
- /
- 0 LIKES
-
박상윤•2002.10.09 22:27Com port는 정확하게..setting을 하셨나요.. 정확하게 안됬을 경우 포트는 잡혀 있어도 통신이 안...
-
- 이대성
- •
- 2002.10.08 02:45
- 3 COMMENTS
- /
- 0 LIKES
-
김수경•2002.10.08 21:25Delphi가 없는 관계로 이론만 설명드리겠습니다. 두서없는 설명이 되겠지만 참조하세요 ^^; fm1 <--...
-
이추형•2002.10.08 02:52private procedure AppMessage(var Msg: TMsg; var Handled: Boolean); procedure TFor...
-
이대성•2002.10.08 03:15죄송 한데요... 제가 여쭈어 본건 Form2에서 입력된 Textbox의 내용을 확인버튼을 Click했을때 Form1의 ...
-
- 쳐리
- •
- 2002.10.08 02:40
- 3 COMMENTS
- /
- 0 LIKES
-
이추형•2002.10.08 02:44쉽게 생각하면 OnCreate에서는 화면의 각각의 콤포를 생성하기 때문에 해당 프로시져를 호출하면 에러가 ...
-
쳐리•2002.10.08 03:51페인트 박스가 다른 창에 가리거나, 최소화 된 후에 다시 활성화가 되면 지워지는 문제였네요.... 페인트 ...
-
최용일•2002.10.08 20:05안녕하세요. 최용일입니다. TPaintBox는 TImage와는 달리 그리기 작업한것을 저장하는 기능이 없습니다....
-
- blackjewel
- •
- 2002.10.08 01:46
- 2 COMMENTS
- /
- 0 LIKES
-
미소나눔•2002.10.08 05:33procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); beg...
-
blackjewel•2002.10.10 01:51
-
- 델퐁
- •
- 2002.10.08 00:51
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.10.08 20:07안녕하세요. 최용일입니다. 소켓을 닫을 때 예외처리 하세요... try 인디...
-
- 하성일
- •
- 2002.10.08 00:42
- 1 COMMENTS
- /
- 0 LIKES
-
김수경•2002.10.08 22:30받는 부분에서 메모리를 할당하시는가 보군요 사용이 끝난 메모리를 해제하는 부분을 확인해 보십시오. ...
소스 정리 없이 해보았습니다.
수식보다는 하나의 임시 변수를 사용하시는게 좋을듯하네요
if ( ssLeft in Shift) then begin
if TLabel( Sender ).Left + X - WndPos.x > Panel1.Width - TLabel( Sender ).Width then
TLabel( Sender ).Left := Panel1.Width - TLabel( Sender ).Width
else if TLabel( Sender ).Left + X - WndPos.x < 0 then
TLabel( Sender ).Left := 0
else
TLabel( Sender ).Left := TLabel( Sender ).Left + X - WndPos.x;
if TLabel( Sender ).Top + Y - WndPos.y > Panel1.Height - TLabel( Sender ).Height then
TLabel( Sender ).Top := Panel1.Height - TLabel( Sender ).Height
else if TLabel( Sender ).Top + Y - WndPos.y < 0 then
TLabel( Sender ).Top := 0
else
TLabel( Sender ).Top := TLabel( Sender ).Top + Y - WndPos.y;
end;