hvordan gør man hvis man skulle trykke???

hej Martin

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key = 32 then  //32 = space
        color := clBlack
    else
        color := clWhite;

    if Key = 112 then
        close;

end;

mvh

Cadamsen

ok jeg har prøve det virker ikke der nok noget jeg mangler ???

den skriver fejl i

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

der er nok noget jeg har glemt i starten måske??

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;

---------

Hilsen Martin

Du skal nok bruge:

Application.Terminate;

i stedet for close

Hej Martin,

Via din Object Inspector, skal du dobbelt klikke på OnKeyDown i Events. Så skrives følgende i din Unit(Kode) :

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

end;

Bagefter indesætter du så resten :


    if Key = 32 then  //32 = space
        color := clBlack
    else
        color := clWhite;

    if Key = 112 then
        close;

Mvh

Cadamsen

Hej!!

tak skal du have!! med møje og besvær fandt jeg ud af det!!!

Hilsen Martin