edit-enter

[tom_po]

habe durch Suchen jetzt noch das gefunden, das auch geht:

Delphi-Quellcode:

procedure Tsuchform.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    //If Key = #13 then
    if key = Char(VK_Return) then
    Button1.Click;
end;

ist beides gleichwertig, applikationsbezogen?

[Cyberbob]

Ja. VK_Return ist nur eine Konstante, in der der Tastencode für die Returntaste gespeichert ist. Ist halt einfacher zu verstehen, wenn man RETURN liesst und nicht erst überlegen muss, was jetzt dieses 13 oder 27 oder so heisst.

[tom_po]

danke, cyberbob, leuchtet ein...

[egon.kaschuba]

:bouncing4:
Probiere mal folgendes aus
if key = #13 then self.perform(WM_NEXTDLGCTL,0,0);

Gruß egon.kaschuba
[e-mail]

[egon.kaschuba]

:bouncing4:
procedure Tsuchform.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 then self.perform(WM_NEXTDLGCTL,0,0);
.
.
. Weitere anweisungen
end;

Nochmals Gruß egon.kaschuba

[mr47]

Würdest Du noch dazu schreiben, was da jetzt anders ist, bzw. was das bewirkt..!?

[egon.kaschuba]

:hi:
Wissen ist Macht.

Findest du es nicht auch lästig,daß man sich NUR mit der Tabulatortaste
zwischen mehreren Textfeldern bewegen kann? Insbesondere in großen Eingabemasken ist die
Verwendung der Entertaste bez. der Cursortasten VIEL sinnvoller.

Delphi-Quellcode:

procedure TForm1.Edit14KeyPress(Sender: TObject; var Key: Char);
  begin
 if not (key in [#8,#46,#48..#57] ) then begin key:=#13 ;  // Keine Ziffern eingeben
                                                           // Kundennummer suchen
     table1.indexName:='irenummer';
     table1.setkey;
     table1.FieldByName('nr').asstring:=Edit14.text;

     if not table1.gotokey then begin
     messagedlg('Rechnungdnummer'+' '+edit14.Text+' '+'nicht vorhanden !'
     ,mtinformation,[mbok],0);
     Edit14.text:=' ';
     end;
     edit14.Text:='';
    if key = #13 then self.perform(WM_NEXTDLGCTL,0,0);  // Die Methode Perform sendet die Message
     end; end;                                          // WM_NEXTDLGCTL an das aktuelle Formular.

Ist das OK ? MR47

[edit=Admin]Code in Delphi-Tags gesetzt. Künftig bitte selber machen, danke. ;-) Mfg, Daniel[/edit]

[mr47]

Achso. Ich hatte bei deinem Beitrag davor nicht verstanden was anders ist, bzw. was das bringt.
Jetzt ist es klar...


mr47