Autor Beitrag
pHaRyNx
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 94

win 95, win 2000, win xp, VISTA, Ubuntu 8.04
Delphi 7 PE
BeitragVerfasst: So 11.06.06 08:36 
hallo!

wie kann ich ein programm so einstellen, dass wenn ich im editfeld eine eingabe gemacht habe und dann die entertaste drücke, dass dann automatisch ein button gedrückt wird, bzw. eine bestimmte prozedur aufgerufen wird?
gibt es ein möglichst schnelle und unkomplizierte lösung dafür?

mfg pHaRyNx
proprogrammierer
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 43


Delphi 5, Delphi 2005
BeitragVerfasst: So 11.06.06 09:26 
was macht denn dann der inhalt des editfeldes? oder wozu soll er dann verwendet werden?
popi
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 26



BeitragVerfasst: So 11.06.06 10:02 
Hallo pHaRyNx (leicht zu merkender Name!),

wenn auf Deiner Form ein Button wäre, mit dem Du die Eingabe übernimmst, dann kannst du dessen "Default" Eigenschaft auf "true" setzen.

Wenn Du jetzt ENTER drückst, ist das so, als ob Du den Button clickst.

Hoffe konnte die Helfen.

Gruß

popi
popi
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 26



BeitragVerfasst: So 11.06.06 10:10 
Es geht natürlich auch ohne Button...

Dann musst du mit dem Ereigniss OnKeyPress auswerten, was du drückst.

Hier ein BEispiel:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key IN [#13]) then label1.caption := Edit1.text;
end;

Hier passiert folgendes:

Du gibst einen beliebigen Text in das Editfeld ein und jede Taste wird dabei ausgewertet (OnKeyPress-Ereigniss des Editfeldes)

Wenn das Ereigniss die ENTER-Taste erkennt (ASCII Code 13), dann passiert, was Du eingibst (hier: label1.caption := Edit1.text;)

Hoffe, konnte nochmal helfen.

Gruß

popi
der Berliner
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 417

Win Xp Home
delphi 2005
BeitragVerfasst: So 11.06.06 10:26 
Hallo
Machs So
ausblenden Delphi-Quelltext
1:
2:
3:
4:
procedure TForm1.EDit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then Button1.click;
end;

Gruß

_________________
[b]Ich weiß nicht immer, wovon ich rede. Aber ich weiß, dass ich recht habe.[b]
SmileySN
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 297

WinXP, Win7
Delphi 2010 Professional
BeitragVerfasst: So 11.06.06 10:40 
Siehe auch mal hier, da hab ich einige Beispiele was man im OnKeyPress alles machen kann.

[urll]www.delphi-forum.de/...ic.php?t=61267[/url]
pHaRyNx Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 94

win 95, win 2000, win xp, VISTA, Ubuntu 8.04
Delphi 7 PE
BeitragVerfasst: So 11.06.06 16:13 
vielen dank euch ! ich hab die eigenschaft default des buttons auf true gesetzt und es klappt ohne probleme ! juchhe!

thx pHaRyNx