Hi
z.B. so (ist ein Auszug aus nem Prog von mir)
Delphi-Quellcode:
//****************************************************************************//
procedure TFMain.VSTSectionsKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//wird eine Taste gedrückt, mit der das OnChange-Event ausgelöst wird,
//so wird über CanUpdate dieses verhindert um ein flackern zu vermeiden
if (Key = VK_DOWN) or
(Key = VK_NEXT) or
(Key = VK_PRIOR) or
(Key = VK_UP) or
((Key in [65..90]) and (ssShift in Shift)) then
CanUpdate := False;
end;
//****************************************************************************//
//****************************************************************************//
[edit]
Steht in der Windows.pas
Delphi-Quellcode:
{$EXTERNALSYM VK_ESCAPE}
VK_ESCAPE = 27;
{$EXTERNALSYM VK_SPACE}
VK_SPACE = $20;
{$EXTERNALSYM VK_PRIOR}
VK_PRIOR = 33;
{$EXTERNALSYM VK_NEXT}
VK_NEXT = 34;
{$EXTERNALSYM VK_END}
VK_END = 35;
{$EXTERNALSYM VK_HOME}
VK_HOME = 36;
{$EXTERNALSYM VK_LEFT}
VK_LEFT = 37;
{$EXTERNALSYM VK_UP}
VK_UP = 38;
{$EXTERNALSYM VK_RIGHT}
VK_RIGHT = 39;
{$EXTERNALSYM VK_DOWN}
VK_DOWN = 40;
[/edit]