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**
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.
