/ 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
OnKeyPress hændelsen og Delete tasten
Fra : Lars Hundebøl


Dato : 17-07-02 10:45

Hej NG,

hvordan fanger jeg at det er Delete tasten der bliver trykket på i min
OnKeyPress hændelse i f.eks. en listbox.

if key = ??? then
showmessage('etellerandet');

Håber i kan hjælpe mig...

Med venlig hilsen

Lars Hundebøl



 
 
Juno (17-07-2002)
Kommentar
Fra : Juno


Dato : 17-07-02 10:50

"Lars Hundebøl" skrev i meddelelse
news:3d353c89$0$80809$edfadb0f@dspool01.news.tele.dk...
> hvordan fanger jeg at det er Delete tasten der bliver trykket på i min
> OnKeyPress hændelse i f.eks. en listbox.
>
if key = VK_DELETE then
showmessage('etellerandet');

--
*/*
jUno
spamfilter: Fjern din bh



Juno (17-07-2002)
Kommentar
Fra : Juno


Dato : 17-07-02 10:58

"Juno" skrev
> "Lars Hundebøl" skrev
> > hvordan fanger jeg at det er Delete tasten der bliver trykket på i
min
> > OnKeyPress hændelse i f.eks. en listbox.
> >
> if key = VK_DELETE then
> showmessage('etellerandet');

Sorry, der var jeg lige hurtig nok...
Kan du ikke bruge onKeyDown ? Så virker mit forslag nemlig :)

--
*/*
jUno
spamfilter: Fjern din bh



Garfield (17-07-2002)
Kommentar
Fra : Garfield


Dato : 17-07-02 16:04

Hvis du vil undgå brugen af OnKeyEvent så kan du gøre følgende:


uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
Procedure AppMessage(Var Msg : TMsg; Var Handled : Boolean);
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
Procedure TForm1.AppMessage(Var Msg : TMsg; Var Handled : Boolean);
Begin
If Msg.Wparam=VK_Delete Then
Begin
Showmessage('Hello');
Handled:=True;
Msg.wParam:=0;
End;
End;


procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=AppMessage;
end;



"Lars Hundebøl" <hundebolNOSPAM@aue.auc.dk> wrote in message
news:3d353c89$0$80809$edfadb0f@dspool01.news.tele.dk...
> Hej NG,
>
> hvordan fanger jeg at det er Delete tasten der bliver trykket på i min
> OnKeyPress hændelse i f.eks. en listbox.
>
> if key = ??? then
> showmessage('etellerandet');
>
> Håber i kan hjælpe mig...
>
> Med venlig hilsen
>
> Lars Hundebøl
>
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste