dynamische TEdit und SelectNext

delphijanka · Beiträge: 151 WinXP D 2009 Arc., Java, C

Hallo.

Bin an ein Problem gestossen, was ich net lösen kann bzw gar nicht verstehe, wo was falsch ist.

Zuerst deklariere ich eigene TXEdit-Klasse, abgeleitet von TEdit.

Diese besitzt überschriebene KeyPress: procedure KeyPress(var Key: Char); override;
In dieser fange ich für mich unbrauchbare Zeichen ab.

Dann erzeuge ich mehrere XEdit's dynamisch.
KeyPress funktioniert einwandfrei.

Drücke ich auf TAB-Taste, springt Cursor zum nächsten XEdit.

Nun möchte ich, dass auf die Enter-Taste dasselbe geschieht.

Beide Varianten:

SelectNext(Self, true, true) und
SendMessage(Self.Handle, WM_NEXTDLGCTL, 0, 0);

bringen mich nicht zu der gewünschten Funktionalität. Der Cursor bleibt im selben XEdit stehen, und es erfolgt ein Beep. Warum?

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Do 22.10.2009 um 16:32

thepaine91 · Verfasst: Do 22.10.09 15:44

Sende doch einfach ein Keydown von Tab an dein Fenster.

delphijanka · Beiträge: 151 WinXP D 2009 Arc., Java, C

thepaine91 hat folgendes geschrieben :

Sende doch einfach ein Keydown von Tab an dein Fenster.

das habe ich auch ausprobiert. Es geht nicht. Ich habe außerdem versucht, Tabs abzufagen und zu sperren, was aber nicht geht.

Moderiert von Narses: Zitat kenntlich gemacht.

HelgeLange · Verfasst: Do 22.10.09 15:59

Versuch mal FindNextControl

_________________
"Ich bin bekannt für meine Ironie. Aber auf den Gedanken, im Hafen von New York eine Freiheitsstatue zu errichten, wäre selbst ich nicht gekommen." - George Bernhard Shaw

delphijanka · Beiträge: 151 WinXP D 2009 Arc., Java, C

HelgeLange hat folgendes geschrieben :

Versuch mal FindNextControl

Ok, wir kommen der Sache näher. Die Prozedur gibt mir nil. Komisch, warum denn? Bei der Erzeugung der Edits weise ich jedem den gleichen übergeordneten Parent zu.

Moderiert von Narses: Zitat kenntlich gemacht.

thepaine91 · Verfasst: Do 22.10.09 16:26

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure Edit1OnKeyDown.....
begin
PostMessage((sender as TEdit).Handle, WM_KEYDOWN, vk_Tab, 0);
end;

Funktioniert :nixweiss:

delphijanka · Beiträge: 151 WinXP D 2009 Arc., Java, C

thepaine91 hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:	PostMessage((sender as TEdit).Handle, WM_KEYDOWN, vk_Tab, 0);

Funktioniert :nixweiss:

In der Tat. Danke. Doch der gibt ein Beep aus. Kann man diesen abschalten?

Btw, warum funktioniert denn ein "normaler" Weg nicht? Ein Bug in Delphi, oder programmiertechnisch was falsch bei mir?

PS (gelöst): Die Zeile "Abort" nach dem PostMessage verhindert ne Beep-Ausgabe.

Moderiert von Narses: Zitat kenntlich gemacht.

Marc. · Verfasst: Do 22.10.09 16:57

Alternativ Lösung:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  if (Key = #13) then // #13 = return
  begin
    Key := #0;  // Avoids "beep"
    PostMessage(Parent.Handle, WM_NextDlgCtl, 0, 0);  // Focus next control
  end;

Grüße,
Marc

HelgeLange · Verfasst: Do 22.10.09 18:09

delphijanka hat folgendes geschrieben :

HelgeLange hat folgendes geschrieben :

Versuch mal FindNextControl

Ok, wir kommen der Sache näher. Die Prozedur gibt mir nil. Komisch, warum denn? Bei der Erzeugung der Edits weise ich jedem den gleichen übergeordneten Parent zu.

Moderiert von Narses: Zitat kenntlich gemacht.

Hast Du denn das FindNextControl vom Form aufgerufen ? Also dem Owner deines Edits ? Der hat ja die Liste der TabStops. Und auch sonst alle parameter übergeben ? Delphi selbst arbeitet damit und es funktioniert, wäre seltsam, wenn es buggy ist :p

_________________
"Ich bin bekannt für meine Ironie. Aber auf den Gedanken, im Hafen von New York eine Freiheitsstatue zu errichten, wäre selbst ich nicht gekommen." - George Bernhard Shaw

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme