젠틀캣의 블로그이야기

Component -> Install Packages 메뉴에서 Bin 디렉토리에 dclqrt70.bpl 파일을 Add

자동업데이트 기능등을 강제로 넣어야 할때 실행파일에 파라미터를 넣어주어야 반드시 업데이트를 거쳐야 할수 있도록 해줄수 있다. 본프로그램 procedure TfrmIndex.FormCreate(Sender: TObject); var path : string; begin Application.Initialize; if (System.ParamStr(1) '/first') then //파라미터 값은 first로 지정해주었다. begin ShowMessage('다른 경로로 프로그램을 실행했습니다. 프로그램을 종료합니다.'); Application.Terminate; end; Application.Run; end; 업데이트부 procedure TUpdateForm.ExitProg ; Var BRoot : Stri..

1. 쿼리카운트를 해서 스트링그리드에 뿌려질만큼 1컬럼에 체크박스를 넣어줌 if SVdm.QryMember.RecordCount > 0 then begin Grid.AddCheckBox(1,i,false,false); Grid.SetCheckBoxState(1,i,false); end; 2. TadvStringGird.option 프로퍼티의 goEditing := true; 3. 상단에 전체선택 체크박스 하나 놓고 클릭시 전체선택 및 해제 코드 추가 procedure TformMember.suiCheckBox1Click(Sender: TObject); var i : integer; begin if (suiCheckBox1.Checked = true) then begin for i := 1 to SVdm...

Procedure SleepProc(milisecond : DWORD); var maxloop : Integer; iindex : integer; begin maxloop := (milisecond div 50)+(milisecond mod 50); for iindex := 1 to maxloop do begin if Application.Terminated then begin Break; Exit; Application.Terminate; end; Sleep(50); Application.ProcessMessages; end; end; 사용예 : SleepProc(50);

oriName : string destname : string CopyFile(PChar(oriName),PChar(destName),false);

//* 파일 삭제 함수 - uses절에 ShellApi추가 //* 사용법 MinDeleteFile(ExtractFilePath(Application.exeName)+'tmp\*.jpg',true); function MinDeleteFile(const DirName : string; const UseRecycleBin: Boolean): Boolean; var SHFileOpStruct: TSHFileOpStruct; DirBuf: array [0..255] of char; Directory: string; begin try Directory := ExcludeTrailingPathDelimiter(DirName); Fillchar(SHFileOpStruct, sizeof(SHFileOpStruct), 0..

grid.SelectRows(1,1); //grid.OnClick(Self); GridClick(sender);

if not(Key in ['0'..'9']) then begin Key := #0; end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var CurWebrowser: IWebBrowser; TopWebBrowser: IWebBrowser; Document: OleVariant; WindowName: string; begin CurWebrowser := pDisp as IWebBrowser; TopWebBrowser := (Sender as TWebBrowser).DefaultInterface; if CurWebrowser = TopWebBrowser then ShowMessage('Complete document was loaded') else ..

http://www.swissdelphicenter.ch/torry/showcode.php?id=1055 Problem: Web forms that have multiline text boxes and/or Submit buttons do not respond to the Enter key when displayed on a TWebbrowser. Also when browsing local folders, some keys don't respond. How to solve it: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCt..