젠틀캣의 블로그이야기

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

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;

ide 환경을 Help메뉴 옆에있는 classic undocked 로 변경 [tool]-[option]-[vcl designer] 에서 embedded designer 체크 해제 결국은 ide 작업환경이 유닛작성 화면 과 vcl폼이 붙어 있어서 나는 현상임 이것때문에 3일간의 재 설치와 삽질