젠틀캣의 블로그이야기

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..

AdvStringGrid.FontColors[0, 0] := clRed; AdvStringGrid.Colors[0, 0] := clRed;

procedure TformNyListAdmin.GridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Shift = [ssCtrl]) and (Key = Ord('C')) then grid.CopySelectionToClipboard; end;