So nach etwas längerem herumdoktern hab ich das Problem endlich gelöst.
Das eigentliche Problem war, das das TMemo zwar richtig funktionierte, aber die notwendige visuelle Rückmeldung ausblieb. Cursor wird nicht angezeigt, selecktierter Text wird nicht invers angezeigt.
Hiermit war es dann erledigt:
Delphi-Quellcode:
procedure TForm1.M_InputEnter(Sender: TObject);
begin
if Handle <> 0
then
SendMessage(
Handle, EM_SETREADONLY, Ord(false), 0);
Gruß
K-H