런타임 시 보고서의 LABEL을 마우스로 드래그할 수 있음

              LABEL hlms Delphi    - delphi2007.net
http://www.delphi2007.net/delphiblog/html/delphi_2004992226395018.html

private

    { Private declarations }

    OriginalPos,DownPos,CurrentPos:TPoint;

    mousedown:boolean;// CRETE       false

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

    OriginalPos.x:=Label1.Left;

     OriginalPos.y:=Label1.Top;

     DownPos.x:=X;

     DownPos.y:=Y;

     DownPos:=ClientToScreen(DownPos);

     if Button = mbLeft then

          MouseDown:=True;

end;



procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

     if MouseDown then

     begin

          CurrentPos.x:=X;

          CurrentPos.y:=Y;

          CurrentPos:=ClientToScreen(CurrentPos);

          Label1.Left:=OriginalPos.X+CurrentPos.X-DownPos.X;

          Label1.Top :=OriginalPos.Y+CurrentPos.Y-DownPos.Y;

     end;

end;



procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  mousedown:=false;

end;

블로그를 출판하는 일을 고려하고 있는데, 누구든지 자신의 블로그를 10~100권의 책으로 출판할 수 있으니, 재미있다

HOWTO track a user's idle time

한 처장이 10년 동안 수백 명의 여성을 놀려 파렴치한'성일기'를 남겼다

fastreport 보고서 템플릿 제작 수정 보고서

Win2K 의 Api 함수 차단

Timer in TThread

Additional Data within a StringList

Find all Local Computers on a LAN

Disable Ctrl Alt Del and Alt Tab

Hi / Lo order byte

이 내용에 흥미가 있습니까?

현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:

Vue에서 Select 선택기를 사용하여 label을 결합하는 작업

나는 쓸데없는 말을 더 이상 하지 않겠다. 모두들 코드를 직접 보는 것이 좋겠다. 일반적인 사용 방법: :label=“item.label” 여러 필드 결합: :label="${item.Name}/${item.Bran...

텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.

CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.

런타임 시 보고서의 LABEL을 마우스로 드래그할 수 있음

좋은 웹페이지 즐겨찾기