Checkbox aktivieren bei bestimmten buchstaben in TEdit

[rhodan]

vielen dank Männer!

habs jetzt so gelöst

Delphi-Quellcode:

procedure TForm1.Edit2Change(Sender: TObject);
var
position: integer;
S: string;
begin
 s := edit2.Text;
 Position := Pos('A', s);

if Position > 0 then
  checkbox1.Checked:=true
  else
    checkbox1.Checked:=false;
end;

@Perlsau

ich habe onKeyPress und OnKeyDown auch probiert.

Delphi-Quellcode:

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key = Chr($41) then
checkbox1.Checked:=true
else
checkbox1.Checked:=false;
end;

kam hier nicht ganz zum gleichen ergebnis aber die unterschiede von onKeyPress und OnKeyDown waren mir nicht bekannt, danke dafür.

robin