Entwickler-Ecke
Sonstiges (Delphi) - Entertast 'verlegen'
manta656 - So 22.02.09 13:49
Titel: Entertast 'verlegen'
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 - So 22.02.09 14: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 - So 22.02.09 14:16
Außerdem fehlt da ein then:
Delphi-Quelltext
1:
2:
| if Key = #13 then
... |
manta656 - So 22.02.09 15:47
ja danke :D 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 ?
Delete - So 22.02.09 16:17
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 - So 22.02.09 16:19
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
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!
manta656 hat folgendes geschrieben 
: