Wie mache ich ae aus ä während der Eingabe in TEdit

[Sharky]

Hai,

mal so auf die schnelle:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = 'ä') then
  begin
    Key := #0;
    Edit1.SelText := 'ae';
  end;
end;

Das ganze müsste man halt nur noch für die Verschiedenen Möglichkeiten optimieren
Das Enscheidende ist wohl die Verwendung von SelText.