반응형 Delphi84 [개발/delphi] TMemo 에서 라인 선택하기 [개발/delphi] TMemo 에서 라인 선택하기 TMemo 에서 라인별로 마우스 드래그를 통해 선택한 것처럼 하는 함수. procedure MemoLineSelect(Memo: TMemo; LineNum: Integer); begin if Memo.Lines.Count 2011. 10. 29. [개발/delphi] 중복 실행 방지 델파이로 중복 실행 방지 구현 소스 골라서 쓰자. =============================================================== #1 program Project; uses Forms, Windows, Dialogs, uMain in 'uMain.pas' {frmMain}; var hMutex : THandle; {$R *.res} begin hMutex := CreateMutex(nil, true, 'MajorProj'); // your mutex If (hMutex 0) and (GetLastError = 0) Then Begin Application.Initialize; Application.MainFormOnTaskbar := true; Application.C.. 2011. 9. 1. [개발/델파이] 델파이 단축키 출처 : 인터넷 [폼 디자이너] Ctrl + 방향키(←↑→↓) : 컴포넌트 위치 이동 Shift + Ctrl + 방향키(←↑→↓) : 컴포넌트 위치 이동(빠르게) Shift + 방향키(←↑→↓) : 컴포넌트 크기 변경 선택 후 ESC : Parent컴포넌트로 이동 [오브젝트 인스펙터] Ctrl + ↓ : 컴포넌트 선택기 팝업 (팝업 후 알파벳 문자 입력하여 해당 컴포넌트로 이동 가능) Alt + ↓ : Property Combo 선택기 팝업 (팝업 후 알파벳 문자 입력하여 해당 컴포넌트로 이동 가능) Ctrl + Enter : 열거형 Property값을 다음 값으로 변경 +선택 후, ←,→ : 하위 Property펼치기,접기 Ctrl + Tab : Properties,Events탭 전환 ..선택 + Ct.. 2011. 8. 21. [개발/MFC] 바탕화면 바꾸기 procedure 바탕화면_바꾸기(이미지파일: String; 바둑판형식: Boolean); const 바탕화면_복구 = 29699; var Reg: TRegIniFile; 바탕화면_핸들: HWND; begin // 레지스트리에 바탕화면에 대한 항목 세팅 Reg := TRegIniFile.Create('Control Panel'); Reg.WriteString('desktop', 'Wallpaper', 이미지파일); if바둑판형식 thenReg.WriteString('desktop', 'TileWallpaper', '1') else Reg.WriteString('desktop', 'TileWallpaper', '0'); // 바탕화면 변경 메세지 보냄 바탕화면_핸들:=FindWindow('ExploreWC.. 2011. 8. 1. [개발/delphi] 절대 죽지 않는 프로그램 만들기 dpr 프로젝트 파일을 아래와 같은 형태로 만들면 된다. programProject1; uses Forms, Windows, Messages, Unit1 in 'Unit1.pas'{Form1}; {$R *.res} var Msg: tagMSG; 종료금지: Boolean; const WM_MYQUIT = WM_USER+2533; begin 종료금지:=True; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; while종료금지 do begin whilePeekMessage(Msg, 0, 0, 0, PM_REMOVE) do begin ifMSG.message = WM_MYQUIT then begin 종료금지:=Fal.. 2011. 8. 1. [개발/delphi] Vista에서 프로그램 권한상승하기 여기 없어서 문서와 소스 올립니다. Windows Vista에서 레지스트리나 RegisterWindowMessage...뭐 좀 건드는거 하면 조용히 실행 안해서 프로그램 오류인가 비스타와 궁합 등등 속썩이는 경우. 관리자 권한으로 실행하여 User Account Control (UAC)을 띄워하라고 하여 했더니 되고요. 설치시하거나 델2007이상하면 되다는데 그럴 여건은 안되고... 첨부 문서대로 res파일을 만든후, 빌드하면 실행파일의 권한이 상승되어 비스타에서 잘 됩니다. 여기저기 찾아봐도 어려운 말이 많아서요, 일단 간단하게 되긴되는데 맞는 방법인지는.... (첨부파일의 WindowsVista.rc, WindowsVista.manifest 그대로 사용하시려면 1,2 생략 해도 됩니다) 1. 일단 메.. 2011. 8. 1. [개발/Delphi] IE 띄우기, IE 실행하기 단 아래와 같이 하면 IE가 뜬다. usesComObj; procedureTForm1.Button1Click(Sender: TObject); var IE: OleVariant; begin try IE:=CreateOleObject('Internetexplorer.Application'); // 위치, 크기 IE.Left:=0; IE.Top :=0; IE.Width :=500; IE.Height:=400; // IE 윈도우 상태 IE.Toolbar :=False; IE.Statusbar:=False; IE.Menubar :=False; // 띄우기 IE.Visible:=True; SetForegroundWindow(IE.HWND); IE.Navigate('http://www.naver.com'); fina.. 2011. 8. 1. [개발] 델파이 - 캡션바 없는 폼의 드래그(Drag) 캡션바 없는 폼의 드래그(Drag) 안녕하세요... 캡션바가 없는 폼을 드래깅한다고 생각해 보신적이 있나요... 없어요... 왜 있잖아요... 마이크로 소프트사의 ToolBar를 생각해 보세요.. FrameWindow의 이곳 저곳에서 도킹하는.... 그래서 말인데요... 이것에 관한 팁을 드릴께요.... 이것을 하기 위해서는 윈도우의 메시지를 이용한답니다... 마치 캡션바를 클릭한 상태에서 마우스를 움직인다고 윈도우를 속이는 거죠...(사기꾼인가...?) 그럼 한 번 소스 코드를 봅시다.... unit DragMain; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdC.. 2010. 10. 14. [it/개발] Update 파일체크 및 업데이트 TWebBrowser Popup window 크기 다른 것 해결하기 TWebBrowser 컴포넌트를 사용할 때 메인 브라우저보다 작은 Popup 브라우저가 생성될 경우가 허다하다. 이런 경우를 필자 자신도 많이 애 먹었었다. 하지만, 이런 해결책이 있었다. 이 팝업창의 Width와 Height의 크기를 구하는 문제를 해결하는데 ClientToHostWindow()를 사용하면 가능하다. Procedure TMyBrowser.WebBrowser1ClientToWindow(Sender: TObject; var CX, CY: Integer); Begin ClientWidth := CX; ClientHeight := CY; // + Toolbar.Height + StatusBar.Height; Inc(CX, 30.. 2010. 10. 14. 이전 1 ··· 6 7 8 9 10 다음 반응형