fang tasttryk på CapsLock og Insert

Står du i feltet edit1, laver du en event: OnKeyDown:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = vk_insert then
edit1.Text := 'du har trykket på insert';
if key = VK_CAPITAL then
edit1.Text := 'du har trykket på caps lock';
end;

Se alle koderne i Delphi Help: Virtual key codes.

Mvh Pjotre

Jeg 'står' ingen steder på min form

Du kan også lave den på formens event:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = vk_insert then
label1.Caption := 'Insert';
end;
Mvh Pjotre

Ja det virker :-)
Jeg havde lavet noget tilsvarende men på keypres med dem fanger ikke capslock og insert, kan du ik' lige smide et svar pjotre?

Ja - man kan jo være heldig med svaret en gang imellem.
Fortsat god dag - Pjotre