|
|
 | Pileknapperne
Fra : Kurt G |
Dato : 16-02-07 23:10 |
|
Kan man i OnKeyPress eller OnKeyDown/Up fange, om der er trykket på en af
pileknapperne?
Er der nogen event, der fanger dem, bortset fra i 'UpDown'?
Mvh Kurt
| |
 Ukendt (17-02-2007)
| Kommentar
Fra : Ukendt |
Dato : 17-02-07 08:46 |
|
"Kurt G" <kurt_g@guldbaek.net> skrev i en meddelelse
news:45d62bcd$0$90265$14726298@news.sunsite.dk...
> Kan man i OnKeyPress eller OnKeyDown/Up fange, om der er trykket på en af
> pileknapperne?
>
> Er der nogen event, der fanger dem, bortset fra i 'UpDown'?
>
Hvad med
procedure TForm4.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
Edit1.Text := IntToStr(ord(Button));
end;
\Lars
| |
Kurt G (17-02-2007)
| Kommentar
Fra : Kurt G |
Dato : 17-02-07 17:12 |
|
>> Kan man i OnKeyPress eller OnKeyDown/Up fange, om der er trykket på en af
>> pileknapperne?
>>
>> Er der nogen event, der fanger dem, bortset fra i 'UpDown'?
>>
>
> Hvad med
>
> procedure TForm4.UpDown1Click(Sender: TObject; Button: TUDBtnType);
> begin
> Edit1.Text := IntToStr(ord(Button));
> end;
>
> \Lars
Kræver den ikke, at man har UpDown på formen?
/Kurt
| |
 Ukendt (18-02-2007)
| Kommentar
Fra : Ukendt |
Dato : 18-02-07 16:00 |
|
> Kræver den ikke, at man har UpDown på formen?
Jo jeg misforstod dig.
Lars
| |
Thomas Eg Jørgensen (22-02-2007)
| Kommentar
Fra : Thomas Eg Jørgensen |
Dato : 22-02-07 10:46 |
|
"Kurt G" <kurt_g@guldbaek.net> skrev i en meddelelse
news:45d62bcd$0$90265$14726298@news.sunsite.dk...
> Kan man i OnKeyPress eller OnKeyDown/Up fange, om der er trykket på en
> af pileknapperne?
>
Det er muligt at jeg misforstår dit spørgsmål, men hvorfor ikke bare
bruge:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
label1.caption:=IntToStr(key);
end;
?
PS: Husk at sætte Form1.KeyPreview:=true!
Alternativt kan du bruge messages, men jeg tror lidt det er noget med
"en å og noget vand" i det her tilfælde...
MVH
Thomas
| |
Kurt G (24-02-2007)
| Kommentar
Fra : Kurt G |
Dato : 24-02-07 22:44 |
|
"Thomas Eg Jørgensen" <thomas@hest.notaplan.com> skrev i en meddelelse
news:45dd6674$0$90267$14726298@news.sunsite.dk...
> "Kurt G" <kurt_g@guldbaek.net> skrev i en meddelelse
> news:45d62bcd$0$90265$14726298@news.sunsite.dk...
>> Kan man i OnKeyPress eller OnKeyDown/Up fange, om der er trykket på en af
>> pileknapperne?
>>
>
> Det er muligt at jeg misforstår dit spørgsmål, men hvorfor ikke bare
> bruge:
> procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> label1.caption:=IntToStr(key);
> end;
>
> ?
>
> PS: Husk at sætte Form1.KeyPreview:=true!
>
> Alternativt kan du bruge messages, men jeg tror lidt det er noget med "en
> å og noget vand" i det her tilfælde...
>
> MVH
> Thomas
Det var faktisk det, jeg manglede.
Tak.
/Kurt
| |
|
|