Difference between revisions of "key down/de"

From Free Pascal wiki
Jump to navigationJump to search
m
m
Line 46: Line 46:
 
<br>
 
<br>
 
--[[User:Olaf|Olaf]] 05:49, 25 May 2013 (UTC)
 
--[[User:Olaf|Olaf]] 05:49, 25 May 2013 (UTC)
[[Category:Code Parts/de]]
+
[[Category:Code Parts/de]]{{AutoCategory}}

Revision as of 11:42, 19 August 2013

Deutsch (de) English (en)

Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Das Ereignis OnKeyDown eines Objektes erlaubt dem Programmierer fest zustellen, welche Taste der Anwender gedrückt hat.
Damit kann der Programmierer auf den Tastendruck des Anwenders gezielt reagieren.

Beispiel für das Abfragen einer Taste:

uses
  Windows, Dialogs, ...;
  
  ...
  
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_DOWN) or
     (Key = VK_UP) then
    ShowMessage('Pfeiltaste gedrückt');
end;
  
  ...


Beispiel für das Abfragen von zwei Tastencodes:
Einmal wird die Tastaturcode in der Variablen Key und einmal wird der Tastaturcode in der Variablen Shift abgefragt.
Die Variable Shift übergibt nur den Tastaturcode der in der Aufzählung TShiftState definiert ist (z.B. ssAlt, ssCtrl, usw.).

uses
  Windows, Dialogs, ...;
  
  ...
  
procedure TForm1.txtEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if ssAlt in Shift then
    if Key = vk_F2 then
     ShowMessage('Alt F2 wurde gedrückt.')
end;
  
  ...



--Olaf 05:49, 25 May 2013 (UTC)