Søg
Avatar billede Marting Forsker
20. februar 2002 - 20:42 Der er 16 kommentarer og
1 løsning

hvordan gør man hvis man skulle trykke !!

Hej Med jer igen!!

Jeg prøvet det her nedunder den skrive fejl i :

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

jeg tror at der mangler noget i min kode??
----------------------------
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


----------------------
Hej Med jer!!

hvordan gør jeg hvis skal kun bruge :

f.eks : F1, mellemrum, eller Enter

ja hvis F1 Skulle kun lukke af??

eller mellemrum skulle kun skifte farve

Hilsen Martin
Avatar billede dkn Nybegynder
20. februar 2002 - 20:45 #1
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Keypreview := true;
    if Key = 32 then  //32 = space
        color := clBlack
    else
        color := clWhite;

    if Key = 112 then
        close;
end;
Avatar billede dkn Nybegynder
20. februar 2002 - 20:47 #2
kan vi se den del af din unit hvor du har sat det ind?
Avatar billede stoney Nybegynder
20. februar 2002 - 20:49 #3
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
// F1 lukker formen
if key = vk_F1 then close;
// mellemrum gør formen blå
if key = vk_space  then color := clblue;

// enter = vk_return

end;

Stoney
Avatar billede Marting Forsker
20. februar 2002 - 20:57 #4
Hej Stoney!!!

jeg prøve lige en gang:

Her er den del af din unit :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

    if Key = 112 then
        close;
end;

end.
Avatar billede dkn Nybegynder
20. februar 2002 - 20:59 #5
proceduren er slet ikke sat til formens Onkeydown event. Gå til object inspectoren mens du har formen valgt. Click på OnKeyDown, og sæt koden:

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

    if Key = 112 then
        close;

//Ind
Avatar billede stoney Nybegynder
20. februar 2002 - 21:00 #6
Det er/var nu ikke mit eksempel.

Du skal bare kopiere nedenstående i  din onKeyDown event på din form

begin
// F1 lukker formen
if key = vk_F1 then close;
// mellemrum gør formen blå
if key = vk_space  then color := clblue;

// enter = vk_return

end;


Stoney
Avatar billede Marting Forsker
20. februar 2002 - 21:10 #7
Hvor er det nu OnKeyDown ligge??

det er en Komponenten??? er det en Komponenten der skal sættes på formens??

Hilsen Martin
Avatar billede stoney Nybegynder
20. februar 2002 - 21:12 #8
i object inspectoren
Samme sted hvor du definere onClick på en button.
Klik på din form så får du adgang til den.

Stoney
Avatar billede stoney Nybegynder
20. februar 2002 - 21:19 #9
Du kan se object inspectoren her. Klik på fanebladet events
så kan du se din onKeyDown. HUSK nu det skal være form1 hvis det er det din form hedder.

http://www.delphi.about.com/library/weekly/aa020299.htm

Stoney
Avatar billede Marting Forsker
20. februar 2002 - 21:23 #10
når ja når jeg er i object inspectoren :

Form1 :

event : onKeyDown

hvad skal der stå i den???
Avatar billede stoney Nybegynder
20. februar 2002 - 21:28 #11
// F1 lukker formen
if key = vk_F1 then close;
// mellemrum gør formen blå
if key = vk_space  then color := clblue;

// enter = vk_return

Stoney
Avatar billede Marting Forsker
20. februar 2002 - 21:37 #12
puha

nu ser min kode sådan nu

procedure TForm1.FormCreate(Sender: TObject);
begin
  if key = vk_F1 then close;

end;

----
Avatar billede Marting Forsker
20. februar 2002 - 21:40 #13
jeg har prøvet at skrive

event :

onKeyDown :
// F1 lukker formen
if key = vk_F1 then close;
// mellemrum gør formen blå
if key = vk_space  then color := clblue;

// enter = vk_return

den gik ikke :
Avatar billede stoney Nybegynder
20. februar 2002 - 21:41 #14
NEJ NEJ NEJ

Det skal være på onkeydown

Formcreate er det der sker når formen bliver createt/lavet

Stoney
Avatar billede stoney Nybegynder
20. februar 2002 - 21:43 #15
Drop lige en mail adr

Stoney
Avatar billede Marting Forsker
20. februar 2002 - 21:49 #16
der er MBG@C.dk

Hilsen Martin
Avatar billede Marting Forsker
20. februar 2002 - 21:58 #17
Så lykke det!!!!

du har bare tålmodighed Ven!!!!!!!

Tak for det!!!

Hilsen Martin
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel Indlæg Oprettet Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering 4 23/04/202616:10 21/08/202611:03
Hjælp til Api.asmx Af lurup i Andet programmering 1 17/03/202609:27 17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering 2 12/11/202514:10 21/08/202611:08
Hjælp til programmering af website Af hamdenlange i Andet programmering 16 17/08/202522:26 19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering 8 24/07/202513:06 28/07/202517:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:06 Kan ikke starte min pc Af Malm i PC
07/0919:20 DVD program Af dcedata1977 i Andet software
07/0916:09 Bitdefender brokker sig Af FinnRasmussen i Andet sikkerhed
06/0921:00 Libre Office Impress Af Frank i Andre styresystemer
06/0911:47 VB script Af Jenshentze i Word
White papers
Flere white papers »