On
Zitat von
keineahnung1:
hi ich will dies aufrufen
edit1.OnKeyPress(sender,#13);
und will als 2tes argument die enter taste reinbringen, aber dies scheint so nicht zu funktionieren? warum denn wie is dann richtig, danke
Weil
OnKeyPress so deklariert ist (man beachte den
var Parameter):
TKeyPressEvent = procedure (Sender: TObject; var Key: Char);
Deshalb:
Delphi-Quellcode:
var
taste : char;
begin
taste := #13;
if Assigned(edit1.OnKeyPress) then // <== ohne diese Zeile kann es dich auf die S@@@@@@ hauen
edit1.OnKeyPress(sender, taste);
end;
@Sprint: der Sinn ist, dass man im OnKeyPress die Taste verändern darf;
die veränderte Taste geht an das Control
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then
Key := #0; // Tastendruck "schlucken"
end;