edit-enter

[egon.kaschuba]

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]