| Autor |
Beitrag |
Wolkenkind
Hält's aus hier
Beiträge: 8
|
Verfasst: Mi 12.03.03 00:35
Also...
Mein Formular verfügt über verschiede TEdit Felder die alle über das Ereigniss OnKeyPress auf die Prozedure EditChange zugreifen
  Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.EditChange(Sender: TObject; var key:char);
begin
if not (Key in [#8,#13,#32,#45,#46,#48..#57,#65..#90,#97..#122,#196,#214,#220,#223,#228,#246,#252]) then key := #0;
if Key = #13 then {#13 = Enter}
begin
end;
end; |
Nun soll bei der Eingabe von ENTER der Focus auf das nächste Editfeld übergehen. Allerdings ist es momentan immer nur am beepen, wenn man ENTER drückt.
Was muß ich tun um den aktuellen TabStop herauszufinden und den nächsten anzufahren ??? _________________ " Software is like sex ! It's better when it's free " - L.Torvals
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Mi 12.03.03 00:41
Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
SendMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end; |
Und keyPreview von der Form auf TRUE stellen.
|
|
Wolkenkind 
Hält's aus hier
Beiträge: 8
|
Verfasst: Mi 12.03.03 00:45
Danke.
War schon fast zuviel. Die Zeile SendMessage(Handle, WM_NEXTDLGCTL, 0, 0); bei mir eingefügt genügte schon.
Danke für die schnelle Antwort...
_________________ " Software is like sex ! It's better when it's free " - L.Torvals
|
|
Wolkenkind
Hält's aus hier
Beiträge: 8
|
Verfasst: Mi 12.03.03 00:50
Kann mir jetzt noch jemand sagen, wie ich dieses blöde beepen dabei abstellen kann ???
_________________ " Software is like sex ! It's better when it's free " - L.Torvals
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Mi 12.03.03 00:53
Quelltext
|
|
hansa
  
Beiträge: 3079
Erhaltene Danke: 9
|
Verfasst: Mi 12.03.03 17:28
@Luckie : So einfach ists wohl nicht. Über das Thema habe ich mich lange genug geärgert.
www.delphipraxis.net...ht=l%E4stiges+beepen_________________ Gruß
Hansa
|
|
Wolkenkind
Hält's aus hier
Beiträge: 8
|
Verfasst: Mi 12.03.03 17:53
Also, da ich nicht die angegebene Prozedure FormKeyDown benutze und auch KeyPreview nicht verändert habe, sondern nur meine abgebildete Prozedure so geändert habe, funzt es ganz gut.
Quelltext
1:
2:
3:
4:
5:
| if Key = #13 then
begin
SendMessage(Handle, WM_NEXTDLGCTL, 0, 0);
Key := #0;
end; | _________________ " Software is like sex ! It's better when it's free " - L.Torvals
|
|
hansa
Beiträge: 3079
Erhaltene Danke: 9
|
Verfasst: Mi 12.03.03 18:01
wo hast du das eingebaut?
_________________ Gruß
Hansa
|
|
Wolkenkind
Hält's aus hier
Beiträge: 8
|
Verfasst: Mi 12.03.03 20:39
Habe eine Prozedure geschrieben, mit der ich auf das Ereigniss OnKeyPress meiner Edit-felder reagiere. "TForm1.EditChange". (Siehe den Code im ersten Posting des Threads) Ergänzt um den Letzten Code des Threads.
_________________ " Software is like sex ! It's better when it's free " - L.Torvals
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Mi 12.03.03 21:23
| hansa hat folgendes geschrieben: | @Luckie : So einfach ists wohl nicht. Über das Thema habe ich mich lange genug geärgert.
|
Keine Ahnung, wie einfach das ist. Ich habe den Computer an der Stereoanlage hängen, da ich aber meinst nebenbei Fernsehen kucke, höre ich nie was. 
|
|
hansa
Beiträge: 3079
Erhaltene Danke: 9
|
Verfasst: Mi 12.03.03 22:46
Wenns so ist, ja, dann geht diese Methode nicht.
_________________ Gruß
Hansa
|
|
