Avatar billede remis Nybegynder
01. maj 2001 - 02:31 Der er 5 kommentarer og
1 løsning

larm

Hmm...Hvordan skal jeg nu forklare mit problem.......Lav en form med en Tedit og en Tlabel. Ved edit-onkeydown skrives \"if Key = VK_Return then label1.caption := edit1.text;\". Teksten bliver så nydeligt vist i labelen og alle er glade...Næsten...Hver gang man trykker [enter] fremkommer en utrolig irriterende lyd som vist betegnes som et systembip. Hvordan undgår man dette?
Avatar billede borrisholt Novice
01. maj 2001 - 06:50 #1
prøv den her :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key:Char);
begin
  if Key = Chr(VK_RETURN) then
  begin
    Perform(WM_NEXTDLGCTL,0,0);
    key:= #0;
  end;
end;

Jens B (http://www.fotx.net/borrisholt)
Avatar billede delphidaner Nybegynder
01. maj 2001 - 07:31 #2
Det var egentlig rart at vide.... det problem havde jeg også engang.
Avatar billede speedy Nybegynder
01. maj 2001 - 08:42 #3
borrisholt>> Hvad er grunden til denne linie ?

Perform(WM_NEXTDLGCTL,0,0);

Som jeg forstår, hopper den videre til næste control på formen. Er det rigtigt ?

/SpEeDy
Avatar billede borrisholt Novice
01. maj 2001 - 08:46 #4
yep .. Det var måske ikke meningen ?
Avatar billede speedy Nybegynder
01. maj 2001 - 08:49 #5
Måske... Men jeg var bare lige nysgerrig :)

/SpEeDy
Avatar billede remis Nybegynder
01. maj 2001 - 18:35 #6
Mange tak!
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester