본문 바로가기

Application/Delphi Lecture126

keydonw 이벤트에서 "띵" 소리 막기 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } procedure WMMenuChar(var MessageRec: TWMMenuChar); message WM_MENUCHAR; public { Public declarations } IgnoreMenuChar: boolean; end; var .. 2008. 8. 13.
MemProof의 사용법 musk95님의 블로그 | 마이토이 http://blog.naver.com/musk95/100011087174 복잡한 어플리케이션을 만들때, 갑자기 다운되거나 경고가 발생하거나하는 다양한 에러가 발생될때가 있습니다. 이런 때의 원인은 대개는 자신에게 있습니다만, 이따금 DELPHI의 버그이거나 컴퍼넌트의 버그이거나도 합니다. 그렇지만, 디버그 해도 원인이 되는 코드를 모를 때도 있습니다. 그럴때, 프리 소프트웨어로 간편하게 메모리 릭이나 메모리 해제를 잊은 부분을 체크할 수 있는 것이 「MemProof」입니다. 우선 MemProof를 다운로드 할 수있는 곳은 아래와 같습니다. (2005/3/15현재) http://www.automatedqa.com/ http://www.automatedqa.com/dow.. 2008. 8. 13.
익스플로어 새창 열기 { URL 열기 } procedure TForm1.NavigateIE(const URL: WideString); var IE: Variant; begin try IE := CreateOleObject('InternetExplorer.Application'); except ShowMessage('익스플로러 실행 실패'); Exit; end; IE.Visible := true; { IE.ToolBar := false; IE.Resizable := false; IE.TheaterMode := true; IE.Left := 300; IE.Top := 300; IE.Width := 350; IE.Height := 385; } IE.Navigate2(URL); IE := Unassigned; end; 2008. 8. 13.
AlwaysOnTop 처리하기 procedure TForm1.FormShow(Sender: TObject); begin SetWindowPos(Form1.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW); end; // on the calling form . . . procedure TfrmMain.Button1Click(Sender: TObject); begin Application.CreateForm(TForm1, Form1); Form1.ShowModal; Form1.Release; end; 2008. 8. 13.

티스토리툴바