Bei meinem Edit piept es

[Hercules]

Hallo Lazaruser,
ich habe in meiner Lazarus-Anwendung mehrere Edit-Komponenten.
Als Ereignis habe ich in der Edit-Komponente 'OnKeyDown' gewählt.
Immer wenn ich eine Eingabe mit der Enter-Taste abschließe,
dann kommt der in Windows eingestellte Standard-Warnton.
Das kann ganz schön nerven.
Kann mir jemand sagen, wie man den weg bekommt ?

Allen ein schönes Wochenende,
Hercules

[shokwave]

Hallo,

nach ein bisschen googlen hab ich das hier gefunden:

Code: Alles auswählen

uses ...., LCLType, windows;
 
...
 
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  mgsTemp: TMsg;
begin
  if Key = VK_RETURN then
  begin
    PeekMessage(mgsTemp, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
  end;
end;

Bei meinem Win7 funktioniert das.

Dir auch ein schönes WE.

[pluto]

Ich meine, dass es doch unter Windows ein Standard-Verhalten oder ? Oder könnte das etwa ein Bug sein. Davon habe ich schon lange nichts mehr gehört.

[shokwave]

Den Code oben hab ich von hier. Der Artikel ist von 2003 und für Delphi, also gehe ich mal davon aus das das Standard ist. Trotzdem nervt es.

[Socke]

Da du die Unit Windows und eine Plattform-abhängige API benutzt, wird dein Programm in der Form nur für Windows kompilierbar sein. Als Lösung wären zwei {$IFDEF Windows} nötig oder man gestaltet das ganze direkt plattformunabhängig:

Code: Alles auswählen

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Key := 0;
end;

Das hab ich selbst nicht getestet, sondern nur aus der Erinnerung abgerufen.

[pluto]

Das hab ich selbst nicht getestet, sondern nur aus der Erinnerung abgerufen.

Jetzt wo du es erwähnst: Das ist / war ein Windows Problem und eine Oft gestellte Frage. Ich meine aber auch, dass es so gehen sollte.
Ich meine jedoch auch das es nicht key:=0 war sondern key:=#0 war unter KeyPress. Dürfte aber kein Unterschied machen, wobei ich hier noch auf die Taste prüfen würde:
if key = VK_Return then key:=0;

[Socke]

Ich meine jedoch auch das es nicht key:=0 war sondern key:=#0 war unter KeyPress. Dürfte aber kein Unterschied machen, wobei ich hier noch auf die Taste prüfen würde:
if key = VK_Return then key:=0;

Ich hatte nur shockwaves Quellcode verändert und da war var Key: Word; deklariert; also ging ich von einem Integer-Typ aus.
Die Bedingung hab ich glatt übersehen, sollte aber mit rein (wer weiß, was sonst noch funktioniert).

[felix96]

Code: Alles auswählen

if key=13 then key:=0;

^^Ungestestet

[pluto]

warum gleich 13 ? Warum nicht VK_RETURN ? Ist das gleiche, musst nur die Unit lcltype mit einbinden.

[Socke]

warum gleich 13 ? Warum nicht VK_RETURN ? Ist das gleiche, musst nur die Unit lcltype mit einbinden.

Weil es so ist . Ob du 13 oder VK_RETURN schreibst, hängt mehr oder weniger nur davon ab, ob du eine Vorliebe für Konstanten (im Gegensatz zu konstanten Werten) hast.

[pluto]

Weil es so ist . Ob du 13 oder VK_RETURN schreibst, hängt mehr oder weniger nur davon ab, ob du eine Vorliebe für Konstanten (im Gegensatz zu konstanten Werten) hast.

Genau so habe ich es auch gemeint und auch geschrieben... oder etwa nicht ?

[Hercules]

Hallo Socke, Pluto, felix und shokwave,
vielen Dank für Eure Tipps. Ich muß mir das jetzt erst mal
auf der Zunge zergehen lassen. Werde Meldung erstatten,
ob ich Erfolg hatte oder nicht.

[Hercules]

Hallo Socke, Pluto, felix und shokwave,
mit
if Key=13 then key:=0;
funktioniert es !!!!
Vielen Dank an Euch alle.