19. maj 2002 - 16:42Der er
8 kommentarer og 1 løsning
Space medfører at underform lukkes
Hej,
Jeg har en underform hvor jeg ved at trykke space skal kunne ændre en radiobuttons 'checked' egenskaber.
Jeg har forsøgt med følgende kode som er sat ind under formens onkeydown event.
procedure Tanno.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = vk_space then radiobutton1.checked:=not radiobutton1.checked; end;
Det mærklige er at radiobutton1 ikke ændres istedet lukkes underformen så jeg kommer tilbage til hovedformen.
Dette sker også selv om jeg slet ikke har nogen onkeydown event????
procedure Tanno.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = vk_space then begin if radiobutton1.checked then radiobutton1.checked := false else radiobutton1.checked := true; end; end;
Desværre den bliver virklig lukket. Jeg har lige prøvt med fsStayonTop og jeg har også tidligere prøvt at vise formen igen til sidst i FormKeyDown proceduren. Jeg kan også se at min close button som er på formen bliver aktiveret lige inden formen lukkes.
Jeg har lige lavt et simplet eksempel resultatet er det samme. Jeg laver to forme. Den ene (hovedformen) aktivere den anden form ved hjælp af en button. Den anden form indeholder kun en button hvor koden er: close;
Når jeg køre dette simple program og aktivere underformen kan jeg igen lukke underformen v.hj.a. space?
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.
