Announcement

Collapse
No announcement yet.

Tastatureingabe des DBGrids zur Edit - Komponente umleiten

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Tastatureingabe des DBGrids zur Edit - Komponente umleiten

    <b>Hallo zusammen !</B><p>

    Folgendes Senario:<p>
    - Ein DBGrid besitzt den Focus.<br>
    - Bei einer Tastatureingabe soll der Focus zu Edit1 springen (noProb Edit1.SetFocus).<br>
    - Nun soll Edit1 das gedrückte Zeichen des DBGrids übergeben und die OnKeyPress und<br>
    OnKeyUp Ereignisse von Edit1 abgearbeitet werden.<p>

    Der Code innerhalb des Ereignisses des DBGrids OnKeyPress:<br>
    Edit1.SetFocus;<br>
    Edit1KeyPress(Sender,Key);<p>
    <b>bringt nicht nicht das gewünschte Ergebnis !!!</b><p>

    Ein einfaches Edit1.Text := Key; ist nicht die Lösung, da der Code der Ereignissbehandlung von Edit1 nicht ausgeführt wird !!!<p>

    Weiß jemand Rat ?<p>

    <b>Gruß Tom ...

  • #2
    Hallo Tom,
    was besseres ist mir erst einmal nicht eingefallen. An deiner Stelle würde ich das nicht in der OnKey.. Routine des Editfeldes abarbeiten, sondern in einer gesonderten, da ich den Eindruck habe, das das Ganze ziemlich langsam ist.

    <pre>
    procedure TForm1.FormActivate(Sender: TObject);
    begin
    Form1.KeyPreview := true;
    Stringgrid1.SetFocus;
    end;

    procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
    begin
    edit1.OnKeyPress(self,key);
    end;

    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
    Label1.Caption := key;
    end;
    </pre>

    mfg Klaus-Pete

    Comment

    Working...
    X