A시스템 기능 키를 차단하는 방법
때때로 우리는 Alt+Tab, Ctrl+Alt+Del, Ctrl+Esc 및 기타 시스템 기능 키(예: 자동 데모 프로그램)를 사용하여 사용자가 프로그램을 중단하는 것을 원하지 않는 경우 어떻게 해야 합니까? 화면 보호기를 실행할 때 이러한 기능 키는 비활성화됩니다. 즉, 프로그램이 실행되는 동안 Windows가 화면에 보호 상태가 있다고 생각하도록 "속일" 수 있습니다. ! 다음 코드를 살펴보십시오.
var
온도 : 정수;
시작하다
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @temp, 0);
끝;
물론 프로그램이 끝나면 설정을 복원하고 Windows를 "깨우기"하는 것을 잊지 마십시오. 코드는 다음과 같습니다:
var
온도 : 정수;
시작하다
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @temp, 0);
끝;
B지점 안내 방법
Delphi의 대부분의 컨트롤에는 부동 막대 프롬프트인 실용적인 Hint 속성이 있습니다. 그런데 프롬프트가 긴 경우가 있습니다. 플로팅 프롬프트 표시줄을 별도의 줄로 표시할 수 있나요? 실제로 힌트는 문자열이므로 Delphi는 문자열을 표시할 때 캐리지 리턴 제어 문자를 자동으로 해석하므로 캐리지 리턴 제어 문자만 추가하면 됩니다. 이 원리를 바탕으로 독특한 수직 프롬프트 바를 만들 수도 있습니다. 먼저 form1에서 라벨을 정렬한 후 샘플 코드를 살펴보세요.
PROcedure TForm1.FormCreate(Sender: TObject);
start label1.Hint := '세로' + #13 + '직선' + #13 + 'ti' + #13 + '표시';
끝;
C메뉴에 그림을 표시하는 방법
Office97을 사용해 보셨나요? 메뉴에 아이콘을 표시하는 것이 신선하다고 생각하시나요? 귀하의 프로그램이 금상첨화되기를 원한다면, 가능한 한 빨리 bmp를 준비하십시오!
"파일" 메뉴바(이름은 n1) 아래 9번째 항목(일련번호가 8로 변경됨) "인쇄"에 프린터 아이콘(파일명은 c:/inter.bmp)을 추가할 계획이라고 가정하고, 양식의 OnCreate 동안 이벤트는 다음과 같이 작성됩니다.
var
Bmp: TPicture;
시작하다
Bmp := TPicture.Create;
Bmp.LoadFromFile('c:/printer.bmp');
SetMenuItemBitmaps(n1.Handle,8, MF_BYPOSITION,Bmp.Bitmap.Handle, Bmp.Bitmap.Handle);
끝;
그 중 첫 번째 bitmap.handle은 선택되지 않은 메뉴 항목(선택 해제)에 사용되며, 두 번째 항목은 선택(선택)될 때 표시되는 비트맵을 지정합니다. 또한 메뉴 항목의 높이가 제한되어 있으므로 비트맵이 너무 크면 왼쪽 상단만 표시됩니다. (상하이 왕젠)