Q&A

  • 실행시에 특정컨트롤의 크기조정???
실행시에 판넬같은 특정 컨트롤의 크기를 마우스로
크기를 늘렸다 줄였다하는 걸 하려고 하는데여
잘모르겠습니다.

아시는분은 답변해주시면 감사하겠네요 ^^

수고하세여!
2  COMMENTS
  • Profile
    강인규 2003.03.07 00:56
    좀더 그럴듯 하게 만들려면 연구가 좀 필요하겠죠? ^^
    var
      bResize : Boolean;


    procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
    Panel1.Top);
      Panel1.SetBounds(Panel1.Left, Panel1.Top, x, y);
      Screen.Cursor := crDefault;
      bResize := False;
    end;

    procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      bResize := True;
      Screen.Cursor := crSize;
    end;

    procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    begin
      if bResize then
       Panel1.SetBounds(Panel1.Left, Panel1.Top, x, y);
    end;

  • Profile
    백진욱 2003.03.07 01:42
    답변감사합니다. ^^