Q&A

  • [물음]입력 컴포넌트에 대해서 몇가지 .....
델파이를 공부한지 얼마않되는 새내기 입니다....

연습 프로그램을 작성하다 몇가지 궁굼한게 있어서 글올리게 되었습니다...

우습더라도 보시면 답변좀 부탁드림니다....

1. 폼에서 마우스를 벗어나지 못하게 하려면 어떻게 해야 하는지 좀 알려 주세요...

그럼 부디 빠른 시일내에 답변을 기다리며(제가 할 수 있는일이 이게 전부겠지요?) 이만 줄입니다... 항상 행복하시길.....

2  COMMENTS
  • Profile
    이승우 2000.09.18 02:08
    김진선 wrote:

    > 델파이를 공부한지 얼마않되는 새내기 입니다....

    > 연습 프로그램을 작성하다 몇가지 궁굼한게 있어서 글올리게 되었습니다...

    > 우습더라도 보시면 답변좀 부탁드림니다....

    > 1. 폼에서 마우스를 벗어나지 못하게 하려면 어떻게 해야 하는지 좀 알려 주세요...

    > 그럼 부디 빠른 시일내에 답변을 기다리며(제가 할 수 있는일이 이게 전부겠지요?) 이만 줄입니다... 항상 행복하시길.....



    안녕하세요. 이승우 입니다.

    마우스 이동영역을 제어하는 간단한 소스를 올려드릴테니 참고하세요



    unit Unit1;



    interface



    uses

    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

    StdCtrls;



    type

    TForm1 = class(TForm)

    Button1: TButton;

    procedure FormActivate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    private

    { Private declarations }

    public

    { Public declarations }

    end;



    var

    Form1: TForm1;



    implementation



    {$R *.DFM}



    procedure TForm1.FormActivate(Sender: TObject);

    var

    R : TRect;

    begin

    R := Self.BoundsRect;

    // 주어진 영역(R)에서 Width와 Height를 각각 30씩 감소

    InflateRect(R, -30, -30);

    // ClipCursor API는 주어진 화면영역(R)으로만 마우스의 이동을 제한

    ClipCursor(@R);

    end;



    procedure TForm1.Button1Click(Sender: TObject);

    begin

    // 마우스 이동영역의 제한을 해제

    ClipCursor(Nil);

    end;



    end.

  • Profile
    김진선 2000.09.18 03:19
    엄청난 도움이 되었습니다...

    송구 스럽지만.. 다음에도 많은 가르침 바랍니다...

    항상 건강하시고 좋은 일 많이 있기를 기원합니다...