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