mit der Enter-Taste in Edits einen Tab simulieren

**Helmi**

Hallo,

ich habe ein Problem:

ich habe ein PageControl mit einer Seite.
Auf dieser Seite befinden sich ein paar Edits.

Ich möchte nun mit der Entertaste wie mit einem Tab von Feld zu Feld springen.

Ich habe mal einen Code dafür gefunden (siehe unten), der funktioniert aber nur, wenn sich die Edits auf der Form direkt befinden.

Was muss ich jetzt umbiegen, damits auch in dem PageControl funktioniert.
(ach ja - es gibt für PageControl kein KeyPress)

markieren

Code:

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

begin

  If Key = #13 then

    begin

      Self.Perform(WM_NEXTDLGCTL, 0, 0);

      Key := #0;

    end;

end;

mfg
Helmi

Schon mal das ganze im OnKeyPress-Ereignis der Editfelder so ausprobiert:

markieren

Code:

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

begin 

  If Key = #13 then 

    begin 

      Parent.Perform(WM_NEXTDLGCTL, 0, 0); 

      Key := #0; 

    end; 

end;

**Sharky**

Hai Helmi,

bei mir funktioniert das auch wenn die Edits auf einer Seite eines TPageControls liegen.

**Helmi**

sharky, kannst du mal kurz bitte ein kleines projekt zusammenstellen und es mi schicken?

mfg
Helmi

**Stevie**

Nö, funktioniert auch so! (KeyPreview des Forms ist auf True?)

**Helmi**

ah Danke!!!

KeyPreview hat gefehlt!!!

Danke Danke Danke! Ich seid Gold wert!

**Stevie**

Hmm, ohne KeyPreview dürfte es auch nicht ohne PageControl funktioniert haben...

**Sharky**

Zitat von Helmi:

sharky, kannst du mal kurz bitte ein kleines projekt zusammenstellen und es mi schicken?...

Da ist es:

**Sharky**

Zitat von Stevie:

Hmm, ohne KeyPreview dürfte es auch nicht ohne PageControl funktioniert haben...

Genau darum habe ich Helmi danach überhaupt nicht erst gefragt

**Helmi**

ja - vermutlich!

ach ja - in einem anderen Programm von mir hab ich die Edits auf der Form direkt, hab von dem auch den Code rauskopiert

hab aber nicht an KeyPreview gedacht und in dem anderen Programm danach geschaut!!

trotzdem Danke!

mit der Enter-Taste in Edits einen Tab simulieren

mit der Enter-Taste in Edits einen Tab simulieren

Re: mit der Enter-Taste in Edits einen Tab simulieren

Re: mit der Enter-Taste in Edits einen Tab simulieren

Re: mit der Enter-Taste in Edits einen Tab simulieren

Re: mit der Enter-Taste in Edits einen Tab simulieren

Re: mit der Enter-Taste in Edits einen Tab simulieren

Re: mit der Enter-Taste in Edits einen Tab simulieren

Re: mit der Enter-Taste in Edits einen Tab simulieren

Re: mit der Enter-Taste in Edits einen Tab simulieren

Re: mit der Enter-Taste in Edits einen Tab simulieren

Forumregeln

olliaustor (Gast) n/a Beiträge	#2 Re: mit der Enter-Taste in Edits einen Tab simulieren 11. Okt 2004, 15:55 Schon mal das ganze im OnKeyPress-Ereignis der Editfelder so ausprobiert: markieren Code: procedure TForm1.EditfelderKeyPress(Sender: TObject; var Key: Char); begin If Key = #13 then begin Parent.Perform(WM_NEXTDLGCTL, 0, 0); Key := #0; end; end;
	Zitat

Sharky Registriert seit: 29. Mai 2002 Ort: Frankfurt 8.251 Beiträge Delphi 2006 Professional	#3 Re: mit der Enter-Taste in Edits einen Tab simulieren 11. Okt 2004, 15:56 Hai Helmi, bei mir funktioniert das auch wenn die Edits auf einer Seite eines TPageControls liegen. Stephan B. "Lasst den Gänsen ihre Füßchen"
	Zitat

Helmi Registriert seit: 29. Dez 2003 Ort: Erding, Republik Bayern 3.312 Beiträge Delphi XE2 Professional	#4 Re: mit der Enter-Taste in Edits einen Tab simulieren 11. Okt 2004, 15:57 sharky, kannst du mal kurz bitte ein kleines projekt zusammenstellen und es mi schicken? mfg Helmi
	Zitat

Stevie Registriert seit: 12. Aug 2003 Ort: Soest 4.008 Beiträge Delphi 10.1 Berlin Enterprise	#5 Re: mit der Enter-Taste in Edits einen Tab simulieren 11. Okt 2004, 15:58 Nö, funktioniert auch so! (KeyPreview des Forms ist auf True?) Stefan “Simplicity, carried to the extreme, becomes elegance.” Jon Franklin Delphi Sorcery - DSharp - Spring4D - TestInsight
	Zitat

Helmi Registriert seit: 29. Dez 2003 Ort: Erding, Republik Bayern 3.312 Beiträge Delphi XE2 Professional	#6 Re: mit der Enter-Taste in Edits einen Tab simulieren 11. Okt 2004, 15:59 ah Danke!!! KeyPreview hat gefehlt!!! Danke Danke Danke! Ich seid Gold wert!
	Zitat

Stevie Registriert seit: 12. Aug 2003 Ort: Soest 4.008 Beiträge Delphi 10.1 Berlin Enterprise	#7 Re: mit der Enter-Taste in Edits einen Tab simulieren 11. Okt 2004, 16:00 Hmm, ohne KeyPreview dürfte es auch nicht ohne PageControl funktioniert haben... Stefan “Simplicity, carried to the extreme, becomes elegance.” Jon Franklin Delphi Sorcery - DSharp - Spring4D - TestInsight
	Zitat

Sharky Registriert seit: 29. Mai 2002 Ort: Frankfurt 8.251 Beiträge Delphi 2006 Professional	#9 Re: mit der Enter-Taste in Edits einen Tab simulieren 11. Okt 2004, 16:02 Zitat von Stevie: Hmm, ohne KeyPreview dürfte es auch nicht ohne PageControl funktioniert haben... Genau darum habe ich Helmi danach überhaupt nicht erst gefragt Stephan B. "Lasst den Gänsen ihre Füßchen"
	Zitat

Helmi Registriert seit: 29. Dez 2003 Ort: Erding, Republik Bayern 3.312 Beiträge Delphi XE2 Professional	#10 Re: mit der Enter-Taste in Edits einen Tab simulieren 11. Okt 2004, 16:02 ja - vermutlich! ach ja - in einem anderen Programm von mir hab ich die Edits auf der Form direkt, hab von dem auch den Code rauskopiert hab aber nicht an KeyPreview gedacht und in dem anderen Programm danach geschaut!! trotzdem Danke!
	Zitat