18. september 2002 - 16:52Der er
7 kommentarer og 1 løsning
On KeyPress...
Hejsa...
Jeg ville lige teste Delphi's OnKeyPress funktion, men hvordan kan jeg se hvilken tast der er trykket på? Lige nu har jeg flg. kode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin If Key = 'E' Then label1.Caption := 'Flot...'; end;
(+ alt det den selv laver) Der står fra start af på label1: "Tryk på E" Kan i forklare mig hvordan jeg klarer dette? Når man trykker på e sker der ikke en sk**
Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
Men kan du ikke lige som noget extra sige mig hvorfor jeg ikke kan bruge else?:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin If Key = 'e' Then label1.Caption := 'Flot :)'; Else label1.Caption := 'Det var ikke e du trykkede på :('; end;
Får flg. fejl:
[Error] KeyPressM.pas(30): ';' not allowed before 'ELSE'
Som fejlmeddelelsen siger :) semikolon er ikke tilladt foran ELSE.
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin If Key = 'e' Then label1.Caption := 'Flot :)' Else label1.Caption := 'Det var ikke e du trykkede på :('; end;
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.