On keypress

[schniede]

HAllo

Warum Funzt das bei mir nicht???

Ist in jedem Forum zu finden nur klappen tut es nicht.

Code:

procedure TMyForm.FormKeyPress(Sender: TObject; var Key:
Char);
begin
  if Key = #13 then //Ist die gedrückte Taste ASCII-Return?
  begin
    Perform(WM_NEXTDLGCTL, 0, 0); //Zum nächsten Element wechseln
    Key := #0; //Gedrückte Taste unwirksam machen
  end;
end;

Ich möchte eigentlich nur verhindern das die Enter Taste nicht funktioniert.

etwa wie panel.visible --- Entertaste tot

das der code oben was anderes bewirkt ,schon klar.

mfg schniede

[mimi]

schreibt doch mal folgendes rein:

Delphi-Quellcode:

if Key = ORD(VK_RETURN) then key:=#0

[phlux]

Und euch beiden lege ich die Delphi Tags (Button Delphi-Code) ans Herzen :love:

[mimi]

für die zwei zeilen code ???

[schniede]

DAnke für die Antwort nur leider funzt das net.

wo find ich denn die Delphi Tags ??

mfg schniede

[toms]

Hi,

Hast du die KeyPreview Eigenschaft deiner Form auf True gesetzt?

[mimi]

wenn du ein neuen beitrag schreibst, hast du verschiende möglichkeiten für die gestelltung deines beitrages zu verfügung.
z.b. kannst du delphi-code tag nutzen, damnit man einen qullcode von dir besser lesen kann. und sowas......