Q&A

  • 폼 이동에 관련된 질문...
폼의 타이틀바를 마우스로 잡아서...

이리저리 옮길수 있잖아요....

그런데...


폼.top 이 50 넘지 않게 할려구 하는뎅....

폼 이동 이벤트 같은건 없나요?
1  COMMENTS
  • Profile
    최용일 2002.05.08 21:39
    안녕하세요. 최용일입니다.

    WM_MOVING이라는 윈도우 메세지를 이용하세요...

    type
        TForm1 = class(TForm)
            ......
            procedure wmMoving(var AMsg: TMessage); message WM_MOVING;
        end;

    implementation

    procedure TForm1.wmMoving(var AMsg: TMessage);
    var
        R: PRect;
    begin
        R := PRect(AMsg.LParam);
        if R.Top < 50 then // 50픽셀 위쪽으로 안올라가게 만들기...
        begin
            R.Top := 50;
            R.Bottom := Self.Height + 50;
            AMsg.Result := Integer(True);
        end;
    end;

    ^^ 항상 즐코하세요...