Tastetryk

Hvordan får jeg mit program til at: Hvis man f.eks. trykker på skal den gøre det samme som en knap.
Hvilken kode skal jeg bruge til det?

Mvh.
Rune Jensen

hvis det skal være alle taster

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 button1.Click
end;

ellers

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = key_enter then
 button1.Click;
end;  // Har ikke testet denne men mener det er sådan

-------------------------------------------------------
My name is Johnny and i am Funny and have a lots of Money. ;-)

[Redigeret d. 15/10-03 18:05:49 af johnny rasmussen]

Kan jeg ikke få et kodeeksempel hvor det er enter man skal trykke på????
Mvh
Rune

Mener at der er sådan her, eller må du kigge i hjælpen under Virtual Keycodes. Der står de alle sammen:
<pre>procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_ENTER then
Button1.Click;
end;</pre>
Husk at sætte Formens Keypreview til True hvis du har fokuskrævende komponenter på Formen. Ellers vil det ikke virke.

Emil Melgaard
- Admin på gruppen Delphi spilprogrammering.
http://www.delphispilprogram.udvikleren.dk

Hvor skal jeg sætte den tast ind der skal bruges??

Mvh.
Rune Jensen

Tror det er ved key_enter... du kan jo finde alle knappers navn i delphi

Kan jeg få et eksempel hvor det er enter der bliver trykket på???
Mvh.
Rune Jensen

Kan jeg ikke få et kodeeksempel hvor det er enter man skal trykke på????
Mvh
Rune

Hvordan får jeg mit program til at: Hvis man f.eks. trykker på skal den gøre det samme som en knap.
Hvilken kode skal jeg bruge til det?

Mvh.
Rune Jensen

Her er et andet eks. fra Delphi hjælp:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

begin
 case key of
 'I': Panel1.Caption := 'Shift+I was pressed';
 'c': Panel1.caption := 'c was pressed';
 ' ': Panel1.caption := 'the space bar was pressed';
 end;

[Redigeret d. 18/10-03 08:51:31 af Jonas (Decko)]