DevHyun

파일 copy나 move 후 윈도우 탐색기에서 특정 경로의 directory를 오픈하고 싶을때 uses ..., shellapi ... .. . procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle, 'open', PChar('경로'), nil, nil, SW_SHOWNORMAL); end;

문자열이 숫자로만 이루어져있는지 판단하는 함수는 TryStrToInt를 사용하면 된다! * SysUtils에 선언되어 있는 내장함수임! function TryStrToInt(const S: string; out Value: Integer): Boolean; 판단하고자 하는 String 변수 S가 문자면 true , integer 변수 Value에 값을 넣어주고 숫자면 false 값 return! uses SysUtils ... procedure Tform1.test; var value : integer; begin if TryStrToInt(Edit1.Text, value ) then begin showemssage('숫자'); end else begin showemssage('문자'); end; end..

1. form create 이벤트에 KeyPreview := True; 추가하기 procedure Tfrorm1.FormCreate(Sender: TObject); begin KeyPreview := True; end; 2. Object inspector에서 Tform1 - keypreview properties를 true로 변경 간단 해결!