Damit ich durch ENTER die eingabe bestätigen und gleich Speichern kann
habe ich das in mein Program mit folgendem Code eingeben:
procedure TForm3.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
if DBEdit1.Text = '' then
begin
DBedit5.Text := 'Nein' ;
Checkbox1.state := cbunchecked;
form1.DBGrid1.Enabled := true;
Form1.Table1.Refresh;
table1.Refresh;
Form1.Enabled := false;
button6.Enabled := false
end;
if DBEdit1.Text <> '' then
begin
table1.Post; // Speichern
form1.DBGrid1.Enabled := true;
Form1.Table1.Refresh;
table1.Refresh;
Form1.Enabled := false;
button6.Enabled := false;
end;
end;
end;
die #13 stand in meinem Delphi buch als ersatz für die ENTER taste !
aber es scheint immernoch jede taste zu wählen als ob er die angabe der ENTER taste überspringt !
Wie bekomme ich das jetzt hin das es richtig Funktioniert ?
