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