AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Den Panel mit Pfeil-Tasten bewegen

Ein Thema von thomas2009 · begonnen am 19. Apr 2011 · letzter Beitrag vom 21. Apr 2011
Antwort Antwort
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#1

AW: Den Panel mit Pfeil-Tasten bewegen

  Alt 19. Apr 2011, 21:11
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.
  Mit Zitat antworten Zitat
Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#2

AW: Den Panel mit Pfeil-Tasten bewegen

  Alt 19. Apr 2011, 21:14
Alternativ kannst du auch mal den Thread durchlesen, da ist u.A. die Lösung, die Matze gerade erwähnt hat, enthalten.
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#3

AW: Den Panel mit Pfeil-Tasten bewegen

  Alt 19. Apr 2011, 21:17
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.
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#4

AW: Den Panel mit Pfeil-Tasten bewegen

  Alt 19. Apr 2011, 21:31
Hallo thomas2009,

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

Gruß Hawkeye
  Mit Zitat antworten Zitat
thomas2009
(Gast)

n/a Beiträge
 
#5

AW: Den Panel mit Pfeil-Tasten bewegen

  Alt 19. Apr 2011, 21:46
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.
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 ?
Angehängte Dateien
Dateityp: zip Panel_Move.zip (3,3 KB, 4x aufgerufen)
Dateityp: zip Project2.exe..zip (200,2 KB, 4x aufgerufen)

Geändert von thomas2009 (19. Apr 2011 um 23:24 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.590 Beiträge
 
Delphi 12 Athens
 
#6

AW: Den Panel mit Pfeil-Tasten bewegen

  Alt 19. Apr 2011, 23:13
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.
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (19. Apr 2011 um 23:20 Uhr)
  Mit Zitat antworten Zitat
thomas2009
(Gast)

n/a Beiträge
 
#7

AW: Den Panel mit Pfeil-Tasten bewegen

  Alt 20. Apr 2011, 12:59
PS: Es gibt einen "schnellen" Button, welcher nicht auf Tastaturereignisse reagiert und der demnach hier nicht in die Quere kommen kann.
...
Ich verstehe Deine Lösung leider nicht
Ich verstehe auch nicht, warum die Leute nicht mehr reagieren

Was mir aufgefallen ist, wenn ich zuerst auf ein TEdit klicke und dann die Pfeil-Tasten betätige dann geht !
Wenn ich aber auf Panel1 klicke und dann wieder versuche, dann geht es nicht !

Hat jemand eine Erklärung ?

Geändert von thomas2009 (20. Apr 2011 um 14:14 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von ChrisE
ChrisE

Registriert seit: 15. Feb 2006
Ort: Hechingen
504 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#8

AW: Den Panel mit Pfeil-Tasten bewegen

  Alt 20. Apr 2011, 14:47
Hallo Thomas,

ich bin mir nicht ganz sicher ob Dir klar ist, dass es es Formularelemente gibt, die diese "Tasten" immer für sich selber verarbeiten. D.h. wenn du z.B. eine Edit auf dem Formular hast, dann ergibt es sich von der Natur der Sache, dass diese verschiedene Tastenevents selber Verarbeitet und nicht weiter durchreicht. Das scheint zunächst einmal für Dein Problem ein Fluch zu sein, denn es gibt dadurch scheinbar "unendlich" viele Controls, die dein vorhaben stören/beeinflussen können.

1. Möglichkeit
Andererseits ist dass vielleicht auch genau Deine Lösung. Du brauchst eine Control, die Panel-Ähnlich ist, aber den Focus für sich beanspruchen kann und dann auch noch Events hat (OnKeyDown / OnKeyPress / OnKeyUp) mit dehnen Du dann deine Aufgabe lösen kannst.

Meine Idee wäre es jetzt, zu schauen wie man eine sollche Komponente selber erstellen kann, die wie ein zum einen wie ein Panel ist, aber zum anderen dennoch die geforderten Events hat und den Focus bekommen kann.
Hierfür würde ich mir anschauen, von welchen Controls z.B. die Edit oder ein Button abstammen und von welchen der Panel (Vererbung). Dann wirst du vielleicht erkennen wie es sollche Controls "machen", dass sie die Tastenevents bekommen zur Verarbeitung oder den Focus für sich beanspruchen können.
U.U. findest du dann einen solchen Vorfahren, der dir dann weiter hilft, deinen eigenes FocusPanel zu schreiben (hier auch keine Furcht davor haben sich mal durch die VCL und deren Untis durch zu machen).

Natürlich scheint diese Möglichkeit sehr Zeitaufwendig und schwierig - und es dauert scheinbar "ewig" bis du Dein Probnlem gelößt hast, aber danach hast du ein deutlich größeres Verständis für die VCL - und dass ist mindestens genauso viel Wert wie die Lösung Deines akuten Problems.

2. Möglichkeit
Überdenke Deine Problemstellung. Kann es sein, dass du dich schon so sehr einschränkst auf die Lösung, dass es viel zu kompliziert wird? Die Problemstellung scheint ja im Augenblick zu sein, einen Panel auf einem Formular per Cursortasten zu bewegen. Störend scheinen hier bei den meisten Lösungsansätzen andere Controls zu sein die den Focus erhalten können / für sich beanspruchen. Also nochmals zur Problembeschreibung: Warum willst du das machen? Was ist der tiefere Grund. Willst du es nur aus "spieltrieb" lernen oder geht es hier um einen konkretes Problem, dass man vielleicht - wenn man es kennen würde - auch anderes angehen könnte?

Viel zu lesen und manches zum nachdenken bevor man antwortet.

Gruß und weiter viel Erfolg,

Chris
Christian E.
Es gibt 10 Arten von Menschen, die die Binär lesen können und die die es nicht können

Delphi programming rules
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:49 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz