Den Panel mit Pfeil-Tasten bewegen

[thomas2009]

Hallo

ich möchte einen Panel mit Pfeil Tasten bewegen

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = 39) then
    Panel1.Left:= Panel1.Left+10;

Keypreview ist schon auf true gesetzt aber passiert nichts !

Was passiert,durch das drücken auf Pfeiltasten, wechselt sicht das Fokus von Cotroll zu Controll!

woran kan das liegen ?

[s.h.a.r.k]

Klappt bei mir ohne Probleme.

[Matze]

Dann setze mal z.B. 2 Buttons aufs Formular. Schon geht es nicht mehr.
Ich weiß auf die Schnelle aber auch nicht, wie man die Fokusierung per Pfeiltasten ordentlich verhindert.

[thomas2009]

Ja sicher, wenn man den Code in einem ganzen leeren Projekt legt :-D

Wenn Du aber RadioGroup auf Form danach legst dann funktioniert es nicht mehr :
Nehme diesen Code als Test :

Code:

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 524
  Height = 365
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 24
    Top = 24
    Width = 185
    Height = 81
    Caption = 'Panel1'
    TabOrder = 0
  end
  object RadioGroup1: TRadioGroup
    Left = 227
    Top = 16
    Width = 246
    Height = 206
    BiDiMode = bdLeftToRight
    Caption = 'RadioGroup1'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ItemIndex = 0
    Items.Strings = (
      '1'
      '2'
      '3'
      '4')
    ParentBiDiMode = False
    ParentFont = False
    TabOrder = 1
  end
end

[Matze]

Wenn die Anwendung nur für dich ist (das nehme ich an), könntest du von den Buttons etc. "TabStop" auf false setzen.
Eine Bedienung per Tabstop-Taste ist dann nicht mehr möglich. D.h. die Anwendung verhält sich nicht wie man es erwartet und ist somit für die "breite Masse" nicht geeignet.
Aber vielleicht reicht dir das schon aus.

[s.h.a.r.k]

Alternativ kannst du auch mal den Thread durchlesen, da ist u.A. die Lösung, die Matze gerade erwähnt hat, enthalten.

[Matze]

Ich habe auch was gefunden:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
  private
    { Private-Deklarationen }
    procedure CMDialogKey(var Msg: TWMKey); message CM_DIALOGKEY;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CMDialogKey(var Msg: TWMKEY);
var
  handled: Boolean;
begin
  handled := true;

  case msg.charcode of
    VK_UP: Panel1.Top := Panel1.Top - 10;
    VK_DOWN: Panel1.Top := Panel1.Top + 10;
    VK_LEFT: Panel1.Left := Panel1.Left - 10;
    VK_RIGHT: Panel1.Left := Panel1.Left + 10;
  else
    handled := False
  end;

  if handled then
    msg.result := 1
  else
    inherited;
end;

end.

[Hawkeye219]

Hallo thomas2009,

die Tastaturabfrage scheint ein großes Hobby von dir zu sein: klick

Gruß Hawkeye

[thomas2009]

Zitat:

Zitat von Matze (Beitrag 1096100)

Ich habe auch was gefunden:

Ja, das funktioniert auch aber wie gesagt, nur wenn ich den Code in einem neuen leeren Projekt lege :(
Wenn Du aber ein paar Kontrolle (Z.B. TEdit, TRadioGroup) dazu auf Form legst, dann Du würdest wundern ;)

Hier ist mein Demo.dpr mit OnkeyDown
Es funktioniert nicht richtig. Beim Bewegen von Panel, wechselt sich den Fokus zwischen dem Panel- und dem Edit- Controll !

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    RadioGroup1: TRadioGroup;
    Edit1: TEdit;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Panel1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Panel1.SetFocus;
if (Key = 39) then
    Panel1.Left:= Panel1.Left+10;
if (Key = 37) then
    Panel1.Left:= Panel1.Left-10;
if (Key = 38) then
    Panel1.Top:= Panel1.Top-10;
if (Key = 40) then
    Panel1.Top:= Panel1.Top+10;

end;

procedure TForm1.Panel1Click(Sender: TObject);
begin
Panel1.SetFocus;
end;

end.

Zitat:

Zitat von Hawkeye219 (Beitrag 1096102)

die Tastaturabfrage scheint ein großes Hobby von dir zu sein: klick

Du verstehst meine Frage nicht;) wenn Du das Project2.exe testest, dann würdest Du verstehen :)

Was ich nicht verstehe, warum Edit1 Inhalt markiert wird und den Fokus bekommt ?

[himitsu]

PS: Es gibt einen "schnellen" Button, welcher nicht auf Tastaturereignisse reagiert und der demnach hier nicht in die Quere kommen kann.
(falls wirklich nur die Buttons das Problem darstellen, wenn nicht, dann müßte man auch bei den anderen Komponenten versuchen die Verarbeitung der Tastenereignisse zu beseitigen)





Wenn das nicht reicht und damit jetzt mal alle was zum Lernen und Nachdenken haben...


Hier habt ihr ein bekanntes Stück Code:

Delphi-Quellcode:

function TApplication.ProcessMessage(var Msg: TMsg): Boolean;
begin
  ...
        Handled := False;
        if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
        if not IsPreProcessMessage(Msg) and not IsHintMsg(Msg) and
          not Handled and not IsMDIMsg(Msg) and
          not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then

Und wenn ich euch nun sage, daß dieses Tastenverhalten der Dialoge in IsDlgMsg behandelt wird, dann dürft ihr überlegen, wie man dieses unterbindet und wo man stattdessen an sein Tastenereignis rankommt.
PS: OnKeyDown liegt im IsKeyMsg versteckt.

Und nein, ohne Änderung des VCL-Quellcodes ... ich sage nur noch WM_KEYDOWN. :mrgreen: