FAQ - Состояние кнопки insert (Insert/Overwrite)

Состояние кнопки insert (Insert/Overwrite)

{------------------------------------------}
{ Returns the status of the Insert key.    }
{------------------------------------------}
function InsertOn: Boolean;
begin
  if LowOrderBitSet(GetKeyState(VK_INSERT))
   then InsertOn := true
   else InsertOn := false
end;