Bei betätigen der Eingabetaste Procedur ausführen

BigT · Hält's aus hier Beiträge: 12

Hi,
ich habe schon wieder ein Problem:
Ich habe eine Textbox (Edit1) und einen Button (Button2). Jetzt will ich, dass wenn man in der Textbox etwas eingegeben hat und die Eingabetaste drückt, der Procedure Button2.Click ausgeführt wird.

Bis jetzt habe ich folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char;);
begin

 If key=VK_Return then                           {Bei Enter Button 2 drücken}
  begin
   Button2.Click;
  end;
end;

Es kommt die Fehlermeldung:
[Error] Unit1.pas(93): Undeclared identifier: 'Edit1KeyPress'

Was ist hier falsch?
Es gibt doch eine Form (Form1), Textbox und Button.

Vielen Dank im Voraus
Thorsten

Moderiert von Christian S.: Delphi-Tags hinzugefügt

Leuchtturm · Verfasst: So 10.12.06 19:11

Ich denke das du vergessen hast die procedure zu deklarieren. Einfach im Objectmanager ereignisse dann KeyPress dann den Code rein und fertig

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

BigT · Hält's aus hier Beiträge: 12

Ja das hatte ich auch noch nicht gemacht.
Jetzt habe ich einmal das da stehen:

markieren

Delphi-Quelltext

1:
2:
3:

type
  procedure Edit1KeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);
  procedure Edit2KeyUpPress(Sender: TObject; var Key: Word; Shift: TShiftState);

Und vor dem der Procedure der ButtonsClick jeweils das stehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Edit2KeyUpPress(Sender: TObject;
var Key: Word;Shift: TShiftState);
begin

If key=VK_Return then                           {Bei Enter Button 1 drücken}
begin
    Button1.Click;
end;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
 If key=VK_Return then                           {Bei Enter Button 2 drücken}
  begin
   Button2.Click;
  end;
end;

Trotzdem passiert nichts,wenn ich in der Textbox bin und Enter drücke!

Was ist hier noch falsch?

Gruß Thorsten

Moderiert von raziel: Delphi-Tags hinzugefügt

Leuchtturm · Verfasst: Mo 11.12.06 18:16

Hat der BUtton überhaupt eine CLICK-PROCEDURE :?:

Sonst kann er ja nichts machen

PS: Heiß das nicht KeyPress?? du hast KeyUpPress geschrieben :wink:

PPS:Benutze bitte die Delphi-Tags

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

BigT · Hält's aus hier Beiträge: 12

Ja es gibt eine Button1Click Prozedur. Hatte es vorher aber auch mit einer einfachen Messagebox getestet, doch es passiert garnix!
Habe das jetzt mit in ButtonKeyPress geändert, aber funktioniert trotzdem nicht.

Wie funktioniert das mit den Delphi-Tags?

Gruß Thorsten

konbom · Beiträge: 36 Win XP Home Delphi 2005 Personal

Hast du die KeyPress-Prozedur überhaupt im Objektinspektor unter Ereignsse eingetragen???

Danny W. · Beiträge: 296 Windows XP, WIN 2000 Delphi 2005 PE

probiers mal mit dem OnKeyDown
OnKeyPresss ist für den jeweiligen ASCII Code der zugehörigen Tasten zuständig.

_________________
"Ich find den Fehler nicht. Der Artist wird immer als "Syntax Error" gezeigt

"
"Ach verdammt, der Artist heißt wirklich "Syntax Error" xD"

BigT · Hält's aus hier Beiträge: 12

Vielen dank!
Ich habe jetzt einfach die eigenschaft default des buttons auf true gesetzt und es klappt ohne probleme!
Weiß leider auch nicht warum das mit dem KeyPress nicht geklappt hatte. Hatte mehrere Sachen ausrobiert.

Gruß Thorsten

Ferdy2003 · Hält's aus hier Beiträge: 2

Hallo zusammen,

ich denke so hätte es auch funktioniert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Edit2KeyUpPress(Sender: TObject;
var Key: Word;Shift: TShiftState);
begin

If key=VK_Return then                           {Bei Enter Button 1 drücken}
begin
    Button1.Click(Self);
end;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
 If key=VK_Return then                           {Bei Enter Button 2 drücken}
  begin
   Button2.Click(Self);
  end;
end;

Gruss

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme