Alt-gr+noget key driller lidt i nedarvet komponent

Jeg har lige prøvet det følgende kode i Delphi 2009 :

unit Unit13;

interface

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

type
  TMyComponent = class(TPanel)
  protected
    procedure keyDown(var key: word; shift: tShiftState); override;
    procedure keyUp(var key: word; shift: tShiftState); override;
    procedure keyPress(var key: char); override;

  end;
  TForm13 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    Panel1: TMyComponent;
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

{$R *.dfm}

{ TMyComponent }

procedure TMyComponent.keyDown(var key: word; shift: tShiftState);
begin
  inherited;
  Caption := IntToStr(Key);
end;

procedure TMyComponent.keyPress(var key: char);
begin
  inherited;
end;

procedure TMyComponent.keyUp(var key: word; shift: tShiftState);
begin
  inherited;

end;

procedure TForm13.FormCreate(Sender: TObject);
begin
  Panel1 := TMyComponent.Create(Self);
  with Panel1 do
  begin
    Name := 'Panel1';
    Parent := Self;
    Left := 128;
    Top := 144;
    Width := 185;
    Height := 41;
    Caption := 'Panel1';
    TabOrder := 0;
    SetFocus;
  end;
end;

end.


Det kører fint :D

Hej JB du har ret, tak - så det virker det også i min delphi7.

Jeg havde en boolean "ctrlIsDown", som blev sat af "keyUp" og "keyDown", og under "keyPress" en "exit" hvis den var "true".
Den åd åbenbart både "ctrl" og "alt-gr", så det var en F40-fejl fra min side :)

Du får points hvis du svarer,
//mbs

- "godt nytår i øvrigt".

Tak skal du have ...

Bemærk ...

function IsAltGRPressed: boolean; VIRKER IKKE på et dansk keyborad. skal du lave noget advanceret keyboard styring skal du bruge GetKeyState til at finde ud af om feks ctrl er nede .. Ellers kan ALT løses med et keyboardhook :D

Hvis du er i tvivl om noget så spørg :D

Jeg har en gang været ved at skrive noget runtime flyt/resize of komponenter, således hvis man holdte ctrl nede så kunne man flytte og hvis du holdt shift nede så kunne man resize, det blev styret således :

  case Msg.Message of
    WM_KEYUP, WM_SYSKEYUP, WM_KEYDOWN, WM_SYSKEYDOWN:
      begin
        FAllowMove := GetKeyState(VK_CONTROL) < -1;
        FAllowSize := GetKeyState(VK_SHIFT) < -1;

        if FAllowMove then
          FAllowSize := false;

        if FAllowSize then
          FAllowMove := false;
      end;
Jens B

Det ligner næsten noget jeg rodede med for lidt siden i forbindelse med caps,num,scroll lock. fandt ud af, at der også er forskel på om man skriver til NT eller 9x windows versionerne.

Det kan være jeg spørger mere til emnet igen, men indtil videre virker det fint :)
//mbs

function keyIsDown(aKey:byte):boolean;
begin result:=getKeyState(aKey)<0 end;

function keyState(aKey:byte):boolean;
begin result:=getKeyState(aKey)=1 end;
//--
function mButLisDn:boolean;begin result:=keyIsDown(VK_LBUTTON) end;
function mButRisDn:boolean;begin result:=keyIsDown(VK_RBUTTON) end;
function mButMisDn:boolean;begin result:=keyIsDown(VK_MBUTTON) end;
function altIsDn:boolean;begin result:=keyIsDown(VK_MENU) end;
function ctrlIsDn:boolean;begin result:=keyIsDown(VK_CONTROL) end;
function shiftIsDn:boolean;begin result:=keyIsDown(VK_SHIFT) end;
function altGrIsDn:boolean;begin result:=keyIsDown(VK_RMENU) end;
function winLisDn:boolean;begin result:=keyIsDown(VK_LWIN) end;
function winRisDn:boolean;begin result:=keyIsDown(VK_RWIN) end;
function isCapsLocked:boolean;begin result:=keyState(VK_CAPITAL) end;
function isNumLocked:boolean;begin result:=keyState(VK_NUMLOCK) end;
function isScrollLocked:boolean;begin result:=keyState(VK_SCROLL) end;
function mousePos:tPoint;begin getCursorPos(result) end;