quitar el cursor de un memo que esta en ReadOnly := false

[roman]

Esto parece funcionar:

Código Delphi [-]
procedure TForm1.Memo1Enter(Sender: TObject);
begin
  ActiveControl := nil;
end;

Por otra parte, con un StaticText puedes obtener algo muy parecido al memo (BevelKind = bkTile, BevelInner= bvLowerer, BevelOuter = bvLowered) y no toma el foco.

// Saludos

[gulder]

hola a todos y gracias por repsonder coso bueno eso que dices puede funcionar lo probarem, Caro este tambien no se me habia acurrido, Delphius tendre en cuenta lo que me dices y roman como siempre tu respuestas tan acertadas saludes gulderGan