enter

Trykker enter i hvad/hvor ?

Her kommer en box når du trykker på en knap

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(\'Tryk på en knap\');
end;

Fang OnKeyUp på din Form.. Hvis du ikke fanger denne event andre steder, så bliver den fanget her.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
    showmessage(\'Du trykkede på ENTER\');
end;

Husk og sæt din forms KeyPreview property til True !

Snowball

Snowball:
den siger at der er noget i vejen med TForm1.FormKeyDown og jeg har husket at sætte keypreview til true ved du hvad der er i vejen??
kan det have noget at gøre med at jeg bare sætter den ind et sted nede ved de andre procedurer??
(jeg bruger delphi6 hvis det kan have noget med det at gøre)

delphi er ikke min stærke side!
så hvis jeg lyder lidt dum så er jeg altså nybegynder!

/disk

Du copy/paster ikke bare det hele ind, vel !? Du skal jo selv lige \"lave\" funktionen ved at dobbeltklikke på OnKeyDown event\'en i din Object Inspector og så kun paste

  if key = 13 then
    showmessage(\'Du trykkede på ENTER\');

ind i din kode !

Snowball

disk> Du skal klikke på din form, derefter gå over i din objectinspecto, vinduet til venste
klikke på fanen event, og derefter finde OnKeyDown eventet, her dblklikker du og indsætter snowballskode

Ups jo det gjorde jeg, jeg prøver lige det!

snowball> er du ikke skrap til memorystream ?
se http://www.eksperten.dk/spm/128096

Hvordan får man den til at holde op med at sige ding??

morten_s: Desværre, har aldrig brugt nogen form for Stream !

Snowball

Jeg aner ikke hvad det der memorstream er!

Kan du ikke svare på hvordan man får den til ikke at sige det der ding??

hhmm...Den si\'r ikke \"ding\" hos mig hvis jeg bruger min kode !?

Snowball

Nå pyt jeg finder ud af det tak for hjælpen!

/disk

Man får automatisk sine point hvis man accepterer ikke??

/disk

Jo, har fået point, tak :)

Snowball

Godt nok jeg har bare ikke brugt experten så meget så jeg var ikke sikker.

/disk