Idiotsikring og bonusspørgsmål

Ehh, du kan vel bare sætte knappens enabled til at være false? Men hvis du mener, at knappen skal rykke sig, når musen nærmer sig knappen, så kan følgende kode gøre det:

begin
  if Button1.Top < 6 then
    Button1.Top := 100
  else
    Button1.Top := Button1.Top - 5;
  if Button1.Left < 6 then
    Button1.Left := 100
  else
    Button1.Left := Button1.Left - 5;

- sæt det ind i knappens mousemove

mht til programmet med de forskellige tasters nummer, så

* så kan du blot benytte "key", og eksempelvis bruge:

  showmessage('Du har tastet på knap nr. '+IntToStr(key))

som skal placeres under formens keydown

Svar