알짜게시판

[Delphi] 폼이 모니터 한 가운데 있는 경우 자연스럽게 왼쪽으로 이동시키기

폼이 현재 모니터 화면의 중앙(±50픽셀) 근처에 있을 때만, 왼쪽으로 200픽셀 부드럽게 이동시켜줍니다.
이동은 여러 단계로 나누어 점점 느려지는 애니메이션(ease-out) 효과를 주기 때문에 자연스럽게 폼이 미끄러지듯 움직이는 것을 볼 수 있습니다.
중앙에 있을 때만 작동하도록 범위 체크를 하며, 마지막에는 남은 거리를 정확히 이동해서 항상 200픽셀만큼 이동이 보장됩니다.

[code]
uses system.math;

procedure TForm1.MoveLeftSmooth;
const
MoveAmount = 200; // 전체 이동 거리
Steps = 40; // 단계 수
CenterMargin = 50; // 중앙 허용 픽셀 범위
var
CenterLeft, CenterTop: Integer;
i, IntDelta: Integer;
Progress, Eased, LastEased, RemainMove: Double;
begin
// 1. 중앙 여부 판별
CenterLeft := Monitor.WorkareaRect.Left + ((Monitor.WorkareaRect.Width - Width) div 2);
CenterTop := Monitor.WorkareaRect.Top + ((Monitor.WorkareaRect.Height - Height) div 2);
if (Abs(Left - CenterLeft) > CenterMargin) or (Abs(Top - CenterTop) > CenterMargin) then Exit;

// 2. 부드럽게 왼쪽 이동
LastEased := 0;
RemainMove := 0;
for I := 1 to Steps do
begin
Progress := I / Steps;
Eased := MoveAmount * (1 - Power(1 - Progress, 3)); // ease-out cubic
RemainMove := RemainMove + (Eased - LastEased);
IntDelta := Trunc(RemainMove);
if IntDelta > 0 then
begin
Left := Left - IntDelta;
RemainMove := RemainMove - IntDelta;
end;
LastEased := Eased;
Application.ProcessMessages;
Sleep(8);
end;

// 3. 남은 픽셀 보정
IntDelta := Round(MoveAmount - (Eased));
if IntDelta > 0 then
Left := Left - IntDelta;
end;
[/code]

로그인 후 댓글내용을 입력해주세요

번호 제목 글쓴이 조회 날짜
71 [HTML] 애드센스 자동 광고 사용 시 빈 화면이 출력된다면? 35,411 06-20
70 [워드프레스] xmlrpc.php 차단으로 보안 강화하기 49,584 06-05
열람 [Delphi] 폼이 모니터 한 가운데 있는 경우 자연스럽게 왼쪽으로 이동시키기 59,439 05-26
68 [윈도우] WSH script registration is not valid. 62,828 05-23
67 [워드프레스] 제목 블록 기본값을 H5로 변경하는 방법 62,163 05-22
66 [파이썬] 동영상 특정 영역 모자이크(흐리게) 하기 46,348 04-30
65 [리눅스] 구글 크롬 콘솔 'Attestation check for Topics on' 에러 원인 & 해결방… 59,415 04-11
64 [크롬] 개발자 도구(DevTools)에서 붙여넣기 안될때 71,639 03-10
63 [그누보드] SmartEditor2Skin.html 다운로드 되는 현상 109,733 01-08
62 [PHP] 검색 로봇 접속시 종료 56,045 10-07
61 [리눅스] PHP-FPM 튜닝을 위한 메모리 계산 41,043 08-29
60 [윈도우] 아이폰 벨소리 쉽게 추가하기 93,910 06-14
59 [윈도우] C:\Windows\Installer 폴더 다른 드라이브로 옮기기 104,565 05-29
58 [PHP] REQUEST 값 받기(application/json 포함) 98,964 04-20
57 [리눅스] 데몬(systemd service) 작성 및 실행하기 65,948 03-14
56 [MySQL] 업데이트 이후 에러 발생([ERROR] Incorrect definition of table … 91,676 12-08
55 구글 크롬 탭검색 비활성화 72,620 12-04
54 [MySQL] MySQL, MariaDB 업데이트 73,693 11-24
53 [아이폰] HTTPS 감청 우회하기 312,397 11-01
52 Windows에 Rust 설치하기 57,610 10-05
51 [ReactNative] android directory was detected in the project. 65,574 07-20
50 [리눅스] 메일(Mail) 삭제/초기화 58,432 07-18
49 [Delphi] 윈도우 알림센터에 메시지 출력하기 55,673 06-20
48 텔레그램 봇 (Telegram Bot) 만들기 38,293 05-03
47 [부트스트랩] nav 에서 하위 항목 활성화 시 부모 항목 활성화 35,063 04-30
46 [리눅스] PHP 버전 추가하기 34,791 04-29
45 [PHP] Curl 접속 속도가 늦은 경우 36,788 04-10
44 [윈도우] 파일 내용 검색 45,906 02-09
43 [MySQL] unblock with 'mysqladmin flush-hosts' 에러 53,899 01-01
42 [ReactNative] 캐시 초기화 하는 방법 57,557 12-27
41 [윈도우] node.js 와 npm 업데이트(업그레이드) 57,591 12-01
목록