Om Caps lock og Insert er nede!

var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[vk_capital] = 0) then
    Label1.caption := 'CAPS LOCK';
    else Label1.caption := '';
end;

check evt med en timer

; skal self ikke være foran else....

ok tak.. hvad hedder Insert knappen så? vk_..?

VK_INSERT fandt jeg ud af :)

hehe :)

var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[vk_capital] = 0) then
  Label1.caption := '';
  else Label1.caption := 'CAPS LOCK';
end;

var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[vk_capital] = 0) then
  Label2.caption := 'Overskriv';
  else Label2.caption := 'Indsæt';
end;

Og det var vist omvendt.. at efter else skulle der stå 'CAPS LOCK' og før else skulle der stå '' ;)

Mange tak for hjælpen :)

MVH.
ALA

P.s Du får points :D

Fejl:

var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[vk_insert] = 0) then
Label2.caption := 'Overskriv';
else Label2.caption := 'Indsæt';
end;

ikke vk_capital igen, men vk_insert :)

du kan godt nøjes med at kalde GetKeyboardState en gang

var
  KeyState: TKeyboardState;
begin
  GetKeyboardState(KeyState);
  if (KeyState[vk_capital] = 0) then
    Label1.caption := '' else
    Label1.caption := 'CAPS LOCK';

  if (KeyState[vk_insert] = 0) then
    Label2.caption := 'Overskriv' else
    Label2.caption := 'Indsæt';
end;

ahhh ok :) Tak !