Entertast 'verlegen'

manta656 · Beiträge: 18

Hallo , ich möchte dass wen man in Edit1 die Entertaste drückt , dan der SpeedButton aktiviert wird also so :

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = 13 SpeedButton1.Click();
end;

Jedoch sagt er mir immer , dass da ein fehler ist. wie kan ich die funktion aktivieren ?

uko · Verfasst: So 22.02.09 13:15

Hallo,

lies doch mal die Fehlermeldung genau! Delphi zeigt einem ja die Stelle an, wo es meckert :-)

Lösung: Key = chr(13) oder Ord(Key) = VK_RETURN

Grüße,
Uli

jaenicke · Verfasst: So 22.02.09 13:16

Außerdem fehlt da ein then:

Delphi-Quelltext

1:
2:

if Key = #13 then
  ...

manta656 · Beiträge: 18

ja danke

hier nochmal für die , die es mit den Erklärungen nicht verstanden haben ^^

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then SpeedButton1.Click();
end;

p.s. hat jemand ne lösung , wie ich im Webbrowser also im TWebBrowser , Enter benutzen kan ?

jaenicke · Verfasst: So 22.02.09 14:51

manta656 hat folgendes geschrieben :

p.s. hat jemand ne lösung , wie ich im Webbrowser also im TWebBrowser , Enter benutzen kan ?

Schau mal da, ich schätze Enter ist das selbe Problem: ;-)

Ehemaliges Mitglied Erhaltene Danke: 1

Ich würde übrigens den Code der Schaltfläche in eine sepaarte Routine auslagern oder zumindest der Schaltfläch einen aussagekräftigen Namen geben.

manta656 · Beiträge: 18

ja ich weiss , ich geben jeder Sache ja einen Name

ist aber leichter so zu verstehen , dass es sich um Edit1 handelt ^^ und das mit der 'Entertaste' Danke , ich werde es versuchen