/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Delphi5 Keypress
Fra : Johannes Bakkedal


Dato : 24-10-01 15:56

Hvordan kan man i en EditBox check'e for Enter, så man slipper for at
museclick'e på en Button.
Tilsyneladende virker OnKeyUp Event ikke på Enter.
På forhånd tak.
JB



 
 
Niels (G4S) (24-10-2001)
Kommentar
Fra : Niels (G4S)


Dato : 24-10-01 16:29

On Wed, 24 Oct 2001 16:55:37 +0200, "Johannes Bakkedal"
<bakkedal@post6.tele.dk> wrote:

>Hvordan kan man i en EditBox check'e for Enter, så man slipper for at
>museclick'e på en Button.
>Tilsyneladende virker OnKeyUp Event ikke på Enter.

I OnKeyPress, tjek for #13 i Char. Det er et linieskift. (Altså ASCII
nr. 13.)

--
/` g4s : gee-four-s aka. Niels Martin Hansen
\/ _ mail : g4s [at] mail [dot] dee-kay
/__| icq : 50 18 73 23
_|

Johannes Bakkedal (24-10-2001)
Kommentar
Fra : Johannes Bakkedal


Dato : 24-10-01 19:26


"Niels (G4S)" <g4s@mail.dk> skrev i en meddelelse
news:3bd6de10.413146793@news.inet.tele.dk...
> On Wed, 24 Oct 2001 16:55:37 +0200, "Johannes Bakkedal"
> <bakkedal@post6.tele.dk> wrote:
>
> >Hvordan kan man i en EditBox check'e for Enter, så man slipper for at
> >museclick'e på en Button.
> >Tilsyneladende virker OnKeyUp Event ikke på Enter.
>
> I OnKeyPress, tjek for #13 i Char. Det er et linieskift. (Altså ASCII
> nr. 13.)

Har prøvet flg.:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
c: char;
begin
c:= Edit1.Text[Length(Edit1.Text)];
if c= #13 then
close;
end;

Problemet er bare at Enter tasten ikke returnerer noget.
JB.

>
> --
> /` g4s : gee-four-s aka. Niels Martin Hansen
> \/ _ mail : g4s [at] mail [dot] dee-kay
> /__| icq : 50 18 73 23
> _|



Thomas Rose (24-10-2001)
Kommentar
Fra : Thomas Rose


Dato : 24-10-01 20:33

Hej Johannes,

"Johannes Bakkedal" <bakkedal@post6.tele.dk> wrote in message
news:3bd7086f$0$198$edfadb0f@dspool01.news.tele.dk...
>
> "Niels (G4S)" <g4s@mail.dk> skrev i en meddelelse
> news:3bd6de10.413146793@news.inet.tele.dk...
> > On Wed, 24 Oct 2001 16:55:37 +0200, "Johannes Bakkedal"
> > <bakkedal@post6.tele.dk> wrote:
> >
> procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> var
> c: char;
> begin
> c:= Edit1.Text[Length(Edit1.Text)];
> if c= #13 then
> close;
> end;

du skal bruge Key argumentet i proceduren...

procedure TForm1.osv...
begin
if Key = 13 then
... osv

bemærk at #-tegnet ikke bruges... (Key er et heltal)

Cheers,
Thomas



Johannes Bakkedal (24-10-2001)
Kommentar
Fra : Johannes Bakkedal


Dato : 24-10-01 21:09


"Thomas Rose" <trose@get2net.dk> skrev i en meddelelse
news:3bd71769$0$199$edfadb0f@dspool01.news.tele.dk...
> Hej Johannes,
>
> "Johannes Bakkedal" <bakkedal@post6.tele.dk> wrote in message
> news:3bd7086f$0$198$edfadb0f@dspool01.news.tele.dk...
> >
> > "Niels (G4S)" <g4s@mail.dk> skrev i en meddelelse
> > news:3bd6de10.413146793@news.inet.tele.dk...
> > > On Wed, 24 Oct 2001 16:55:37 +0200, "Johannes Bakkedal"
> > > <bakkedal@post6.tele.dk> wrote:
> > >
> > procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
> > Shift: TShiftState);
> > var
> > c: char;
> > begin
> > c:= Edit1.Text[Length(Edit1.Text)];
> > if c= #13 then
> > close;
> > end;
>
> du skal bruge Key argumentet i proceduren...
>
> procedure TForm1.osv...
> begin
> if Key = 13 then
> ... osv
>
> bemærk at #-tegnet ikke bruges... (Key er et heltal)
>
> Cheers,
> Thomas
>
>
Tak for hjælpen, så virker det.
JB



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste