DBR Delphi-Ecke

// Hiermit kann man einen neuen Blink-Intervall der Schreibmarke (caret)
// setzen (bzw. bei zeit = 0 den alten Intervall wieder herstellen), wobei
// dert Wert in Millisekunden anzugeben ist. Die Einstellung wirkt systemweit.

// Getestet mit D4 unter WinME

var 
  alt: uint = 0; 
 
  procedure BlinkZeit(zeit: uint); 
  begin 
    if alt = 0 then alt := GetCaretBlinkTime 
    else if zeit = 0 then begin 
      SetCaretBlinkTime(alt); 
      alt := 0; 
    end; 
    if zeit <> 0 then SetCaretBlinkTime(zeit); 
  end; 
 
  // Blinkzeit neu setzen 
  procedure TForm1.Button1Click(Sender: TObject); 
  begin 
    blinkzeit(70); 
  end; 
 
  // alte Blinkzeit wieder herstellen 
  procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
  begin 
    blinkzeit(0); 
  end;