Delphi/프로시저-함수48 델파이 showmodal 리턴받기 ShowModal로 띄운 폼에서 리턴값을 받을려면 Close()를 사용하지 않습니다. Close()대신 ModalResult에 mrOk, mrCancle, .... 을 넣어주면 바로 폼이 Close됩니다. 2021. 6. 24. 델파이 유용한 함수정리 2탄 델파이 유용한 함수정리 2탄 WinExec() 설명 원 하는 실행파일(외부명령어 파일,EXE 파일)을 실행시킨다. 원도우의 시작버튼>실행에 열기부분에 입력하여 확인버튼을 누른 효과와 같다. 첫번째 파라미터는 실행명 령 문자열이며 두번째 파라미터는 실행형태 타입값이다. ※ 첫번재 파라미터가 문자열값이 아닌 문자열 변수라면 사용시 PChar()로 감싸주어야 한다. procedure TForm1.Button1Click(Sender: TObject); var value:string; begin value:='c:\lee.exe'; WinExec(PChar(value), SW_NORMAL); end; 사용방법 -- 원하는 주소로 브라우저창 열기 winexec(`explorer http://www.daum.net`.. 2021. 6. 23. 델파이 유용한 함수정리 1탄 델파이 유용한 함수정리 Delphi useful functions Int(Float) 설명 실수값에서 소수부분을 버리고(반올림안함) 정수부분만 구한후 출력한다. 출력값의 데이타형은 실수형이다. 사용 ShowMessage(FloatToStr(Int(3.13333))); // 3 출력 ※ FloatToStr 대신 IntToStr를 사용하면 에러가 난다. 왜냐하면 원데이타가 실수값이기때문이다, Trunc(Float) 설명 : 실수는 무조건 버리고 정수만 리턴하는 함수 Frac(Float) 설명 실수값에서 정수부분을 버리고 실수부분만 구한후 출력한다. 출력값의 데이타형은 실수형이다. 사용 ShowMessage(FloatToStr(Frac(3.13333))); // 0.13333 출력 byte(char) 설명 특.. 2021. 6. 23. 델파이 함수 RoundTo 델파이 함수 RoundTo uses Math 추가 원하는 자리수에서 반올림을 하는 함수 입니다 RoundTo(1234567, 3) 하게 되면 1234000 가 나오고 RoundTo(1.234, -2) 하게 되면 결과는 1.23 RoundTo(1.235, -2) 2021. 6. 22. 델파이 자주사용되는 함수/프로시저 델파이 자주사용되는 함수/프로시저 2021. 6. 21. 델파이 messagedlg 세가지버튼 처리 델파이 messagedlg 세가지버튼 처리 var buttonSelected : Integer; begin // Show a custom dialog buttonSelected := messagedlg('Custom dialog',mtCustom, [mbYes,mbAll,mbCancel], 0); // Show the button type selected if buttonSelected = mrYes then ShowMessage('Yes pressed'); if buttonSelected = mrAll then ShowMessage('All pressed'); if buttonSelected = mrCancel then ShowMessage('Cancel pressed'); 2021. 6. 21. MessageBox 사용법 데스크톱 (Windows) 응용 프로그램의 경우 메시지 (대화 상자) 상자를 사용하여 응용 프로그램 사용자에게 일부 작업을 수행해야 함, 일부 작업이 완료되었음을 알리거나 일반적으로 사용자의주의를 끌 수 있습니다. 에서 델파이사용자에게 메시지를 표시하는 방법에는 여러 가지가 있습니다. ShowMessage 또는 InputBox와 같이 RTL에서 제공되는 루틴을 표시하는 기성 메시지를 사용할 수 있습니다. 또는 (재사용을 위해) 자신 만의 대화 상자를 만들 수 있습니다 : CreateMessageDialog. 위의 모든 대화 상자의 일반적인 문제는 응용 프로그램이 활성화되어 있어야 사용자에게 표시된다는 것 입니다. "활성"은 응용 프로그램에 "입력 포커스"가있는 경우를 나타냅니다. 사용자의주의를 끌고 다른.. 2021. 5. 20. IE캐시를 모두 지우기 IE캐시를 모두 지우기 uses WinInet; procedure DeleteIECache; var lpEntryInfo: PInternetCacheEntryInfo; hCacheDir: LongWord; dwEntrySize: LongWord; begin dwEntrySize := 0; FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize); GetMem(lpEntryInfo, dwEntrySize); if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize; hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntryS.. 2021. 5. 14. 이전 1 2 3 다음
