본문 바로가기

Developist

Delphi/간단하게 간단하게 유휴시간(자리비움) 체크하기 폼에 TTimer를 올리고 OnTimer 이벤트를 추가합니다. procedure TForm1.Timer1Timer(Sender: TObject); function IsIdle(msTime: Integer): Boolean; var LastInputInfo: TLastInputInfo; begin LastInputInfo.cbSize := SizeOf(TLastInputInfo); GetLastInputInfo(LastInputInfo); Result := (GetTickCount - LastInputInfo.dwTime) div msTime > 0; end; begin //설정된 초만큼 사용자 입력이 없을 경우 if IsIdle(5000) then begin Timer1.Enabled := False; ..
Delphi/간단하게 간단하게 TMemo, TEdit의 커서 숨기기 커서가 생성되는 이벤트에 사용하거나ex) KeyDown, MouseDown 등 procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin HideCaret(Memo1.Handle); end;ApplicationEvent 컴포넌트의 OnIdle 이벤트에 넣어줍니다.procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); begin HideCaret(Memo1.Handle); end;
Delphi/간단하게 간단하게 StopWatch로 시간 체크하기 uses .., System.Diagnostics; var StopWatch: TStopWatch; begin //생성과 동시에 시작 StopWatch := TStopWatch.StartNew; //생성 후 수동 시작 StopWatch := TStopWatch.Create; StopWatch.Start; .. //멈춤 StopWatch.Stop; ShowMessage( FormatDateTime( 'hh:nn:ss:zzz', StopWatch.ElapsedMilliseconds/MSecsPerDay ) ); end;

티스토리툴바