Problem beim OnKeyDown

[sko1]

Danke, danke, danke!

Das mit dem key := #0 stimmt, ich hatte OnKeyDown und OnKeyPress beide probiert, jeweils aber nur das eine oder andere!

Wenn ich beide Events entsprechend behandle funktioniert das Sperren der Tasten einwandfrei!

Was die SelStart und SelLength betrifft, da bin ich auch schon drauf gestoßen, wenn der Feldinhalt Zeilenumbrüche enthält.

Bei Feldinhalt = 'Hallo' + sLinebreak + 'Du' hat der Feldinhalt #13#10 als Umbruch aber Sellength ist 1 Zeichen zu kurz!

Ciao
Stefan

[Amateurprofi]

Zitat von sko1:

Wenn ich beide Events entsprechend behandle funktioniert das Sperren der Tasten einwandfrei!

Ich benutze für solche Zwecke gern OnFormShortCut.
Wenn du da Handled=True setzt, dann wirkt das auf alle Tasten.

Delphi-Quellcode:

procedure TMain.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
const
   NoCareKeys=[VK_Up,VK_Down,VK_Left,VK_Right,VK_Prior,VK_Next,VK_Insert,
               VK_Home,VK_End,VK_Shift,VK_Control,VK_Menu];
var
   Key:TShortCut; Shift:TShiftState;
begin
   if ActiveControl<>reTest then Exit;
   Key:=Msg.CharCode;
   if Key in NoCareKeys then Exit; // Tasten, die den Text nicht verändern, ignorieren
   Shift:=[ssShift,ssCtrl,ssAlt]*KeyDataToShiftState(Msg.KeyData);
   // Und hier die Prüfung, ob Tastendruck unterdrückt werden soll.
   // Wenn die Taste unterdrückt werden soll, Handled:=True setzen.
end;

[Fritzew]

schau Dir doch mal das Project EditFields.dpr
in den Demos von WPTools an....

[sko1]

wollte ich eben machen, aber folgende Fehlermeldung (Anhang)

Ciao
Stefan

[Fritzew]

Na dann schau Dir die Fehlermeldung mal genau an.......

[nahpets]

Da scheinen mehrere Fehler in den Dateinamen zu sein, prüf' das doch mal mit NotePad (oder sonst 'nem Editor).