::: 델파이 Tip&Trick :::

델파이 Tip&Trick 성격에 맞지 않는 광고,비방,질문의 글은 즉시 삭제하며
내용을 복사하여 사용할 경우 반드시 이곳(http://www.howto.pe.kr)을 출처로 명시하여 주세요


Category

  김영대(2004-08-06 15:23:45, Hit : 4738, Vote : 1196
 http://www.howto.pe.kr
 벽에 들러붙는 자석폼 만들기

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMWindowPosChanging(var Message: TWMWINDOWPOSCHANGING); message WM_WINDOWPOSCHANGING;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMWindowPosChanging(var Message: TWMWINDOWPOSCHANGING);
const
  distance = 10;
begin
  if (Message.WindowPos.y <= distance) and
     (Message.WindowPos.y >= -distance) then
        Message.WindowPos.y := 0
  else
  if (Message.WindowPos.y + Height > (Screen.WorkAreaHeight - distance)) and
     (Message.WindowPos.y + Height < (Screen.WorkAreaHeight + distance)) then
        Message.WindowPos.y := Screen.WorkAreaHeight - Height;

  if (Message.WindowPos.x <= distance) and
     (Message.WindowPos.x >= -distance) then
        Message.WindowPos.x := 0
  else
  if (Message.WindowPos.x + Width > (Screen.WorkAreaWidth - distance)) and
     (Message.WindowPos.x + Width < (Screen.WorkAreaWidth + distance)) then
        Message.WindowPos.x := Screen.WorkAreaWidth - Width;
end;

end.





371   [일반/컴포넌트] 이미지를 마우스로 drag시 테두리 효과를 주면서 이동 시키기  김영대 2003/03/31 5373 1210
370   [윈도우즈 API] 윈도우즈"시작" 버튼 Disable/Enable  김영대 2003/03/07 4533 1210
369   [네트웍/인터넷] LAN 에 접속했는지 검사하기  김영대 2003/03/07 4467 1210
368   [일반/컴포넌트] RichEdit 에서 문자(열)를 찾아 글자속성 바꾸기  김영대 2003/03/06 4664 1210
367   [일반/컴포넌트] ListView 의 column header 오른쪽에 이미지 넣기  김영대 2003/03/07 4942 1209
366   [시스템] 프로세서를 생성시켜보자!  김영대 2003/03/06 4526 1209
365   [일반/컴포넌트] 마우스커서를 특정위치로 이동시키기  김영대 2003/03/05 5736 1209
364   [일반/컴포넌트] ListBox의 item을 mouse로 이동시키기  김영대 2003/03/04 4272 1209
363   [윈도우즈 API] 내 프로그램의 화면을 가리는 프로그램 리스트  김영대 2004/07/24 4533 1208
362   [윈도우즈 API] KeyDown의 Beep음을 없애자...  김영대 2003/03/06 4550 1208
361   [멀티미디어] wave파일 연주  김영대 2003/03/04 4152 1208
360   [일반/컴포넌트] 콤포넌트를 Redraw할때 깜박임을 방지하려면...  김영대 2003/03/05 4680 1207
359   [윈도우즈 API] 스크린 세이버 실행하기  김영대 2003/03/05 4306 1207
358   [윈도우즈 API] Taskbar 의 특정 위치에 popup 메뉴 띄우기  김영대 2004/07/24 4577 1206
357   [윈도우즈 API] 외부 프로그램의 크기를 내 프로그램에서 변경하기  김영대 2003/03/07 4564 1206
356   [일반/컴포넌트] thread-safe Queue 구현  김영대 2003/08/18 6013 1205
355   [데이터베이스] how to get records from Oracle StoredProcedure  김영대 2003/03/07 4474 1205
354   [윈도우즈 API] 레지스트리가 변경된 사실을 알리려면...  김영대 2003/03/06 4469 1205
353   [일반/컴포넌트] 다이얼로그 박스가 이미 떠있는지 검사하기  김영대 2004/10/16 4465 1204
352   [윈도우즈 API] window의 maximize, minimize 알아내기  김영대 2003/03/07 4600 1204
351   [윈도우즈 API] 스크린 세이버 비밀번호 알아내기  김영대 2003/03/07 4875 1203
350   [시스템] PC 스피커 울리기(Sound, NoSound)  김영대 2003/03/07 4410 1203
349   [시스템] PC에 설치된 DirectX 버전 읽기  김영대 2003/03/07 3895 1203
348   [일반/컴포넌트] ComboBox 가 dropped 상태인지 검사  김영대 2003/03/04 4054 1203
347   [윈도우즈 API] keyboard, mouse 메시지 무시(skip) 하기  김영대 2003/03/07 4351 1201
346   [COM/OLE] TWebBrowser 순차 네비게이션 예제  김영대 2004/10/01 5233 1199
345   [일반/컴포넌트] 서식(format) 주기  김영대 2003/03/05 4475 1199
344   [윈도우즈 API] 아이콘 변경 화면 띄우기  김영대 2004/08/26 4456 1198
343   [네트웍/인터넷] 윈도우즈 네트워크로 메시지 보내기  김영대 2003/03/30 5281 1198
342   [일반/컴포넌트] ASCII printing  김영대 2003/03/06 4957 1198
341   [시스템] 파일의 소유자와 도메인 구하기  김영대 2004/08/04 4297 1197
340   [알고리즘] String Hash 함수  김영대 2004/09/17 4516 1196
  [일반/컴포넌트] 벽에 들러붙는 자석폼 만들기  김영대 2004/08/06 4738 1196
338   [일반/컴포넌트] Algorithm to sort a TStringGrid #2  김영대 2003/03/07 4746 1196
337   [시스템] Redirecting DOS Application Output  김영대 2003/03/06 4425 1196
336   [데이터베이스] DataSet의 현재 레코드 복사하여 붙여넣기(?)  김영대 2003/03/05 5214 1196
335   [데이터베이스] Query한 결과를 수정하기...  김영대 2003/03/07 4871 1195
334   [윈도우즈 API] 네트워크 환경의 "컴퓨터 찾아보기" 화면 띄우기  김영대 2003/04/01 5140 1194
333   [알고리즘] String ELF Hash 함수  김영대 2004/09/17 4654 1193
332   [윈도우즈 API] 액티브 데스크탑에 웹 컨텐트가 표시중인지 알기  김영대 2003/03/27 4235 1193

[이전 10개] [1]..[11][12][13][14][15] 16 [17][18][19][20]..[25] [다음 10개]
 

Copyright 1999-2021 Zeroboard / skin by zero