tasten-eingaben in edit-box abfangen

Nagelbrett · Beiträge: 75

hi, ich hab ein normales einzeiliges edit-feld und möchte gern, dass wenn jemand enter da drückt, die eingabe ausgewertet wird...

wenn ich jetzt im OnKeyDown mit if key = ... das ganze mache, dann funktioniert das zwar, aber es kommt immer ein "ding" (also der windows standard sound), weil man in einer einzeiligen editbox ja nicht enter drücken kann (bzw nicht eine zeile weiterspringen kann)

wie kann ich jetzt verhindern, dass er immer diesen sound spielt?
mit Key := 0; am ende der prozedur gehts leider nicht...
hab auch schon OnKeyPress probiert, aber da ist's das selbe

ErnestoChe · Verfasst: Mo 19.05.03 16:57

Hi,

dann mach so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    key:= #0;             //  <-------------------------------------------
    caption := edit1.Text;
  end;
end;

MFG

- Ernesto -

Nagelbrett · Beiträge: 75

ja stimmt, danke

das funktioniert

aber in KeyDown war Key leider kein Char sondern Word, naja, egal, habs jetz mit KeyPress gemacht

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme