entertaste als char?????

[shmia]

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;