검색결과 리스트
이미지 위 마우스에 해당되는 글 1건
글
마우스 좌표를 구하는 두가지 방식입니다.
첫번째 윈도우 상에서의 마우스 좌표
procedure TForm1.Image1Click(Sender: TObject);
var
fpint : TPoint; //Tpoint 타입
begin
Windows.GetCursorPos(fpint); //윈도우상에서의 무우스 좌표
StartX := fpint.X // X좌표 추출
StartY := fpint.Y // Y좌표 추출
lblView.Caption := 'X : '+IntToStr(StartX)+' Y : '+IntToStr(StartY);
end ;
end;
위에서 보듯 이벤트 자체가 마우스 클릭 이벤트입니다.
두번째 이미지 캔버스 안에서 만의 마우스 좌표
procedure TfrmMain.imgMainMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
lblView.Caption := 'X : '+IntToStr(X)+' Y : '+IntToStr(Y);
end;
이번에는 마우스 다운 이벤트로 이 프로시져 자체가 x,y좌표를 인수로 갖는다. 그냥 활용만 하면 됩니다.
'Delphi' 카테고리의 다른 글
[Delphi]ExtractStrings을 이용한 문자열 구분 (0) | 2012.05.30 |
---|---|
[Delphi]Q 큐를 이용한 델파이 공부. (0) | 2012.05.23 |
[Delphi]TStringGrid OnSelectCell 이벤트 특정 컬럼 수정 막기 (0) | 2012.05.22 |
[Delphi]델파이 VCL 레퍼런스 (0) | 2012.05.21 |
[Delphi]델파이 함수 레퍼런스 (0) | 2012.05.21 |
RECENT COMMENT