Modo insert en un memo!!

[LuNaTk]

Muchas gracias Roman!!

No me queda duda de que asi debe funcionar como deseo, pero tengo un problemita y de antemano pido disculpas si los llego a desesperar pero os repito que soy nuevo en este lenguaje, y me ha marcado un error en esta parte delcodigo que pongo en rojo, serias tan amable de indicarme donde estoy cometiendo el error o tal vez me falto declarar algo.

Gracias nuevamente.

Código Delphi [-]
unit memoxx;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
  Memo1: TMemo;
  procedure FormCreate(Sender: TObject);
  procedure Memo1Exit(Sender: TObject);
  private
  OldMemoWndProc: TWndProc;
  procedure MemoWndProc(var Msg: TMessage);
  end;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Guardamos una referencia al método original
  OldMemoWndProc := Memo1.WindowProc;
  // Reemplazamos el manejador de mensajes de Memo1 por el nuestro
  Memo1.WindowProc := MemoWndProc;
end;
procedure TForm1.Memo1Exit(Sender: TObject);
begin
  // Destruimos el cursor al salir del control
  DestroyCaret();
end;
{
  Manejador de mensajes para Memo1
}
procedure TForm1.MemoWndProc(var Msg: TMessage);
var
  DC: HDC;
  TM: TextMetric;
begin
  // Llamamos al manejador original
  OldMemoWndProc(Msg);
  // Si es el mensaje WM_SETFOCUS, crear el cursor
  if Msg.Msg = WM_SETFOCUS then
  begin
    DC := GetDC(Handle);
    GetTextMetrics(DC, TM);
    ReleaseDC(Handle, DC);
    CreateCaret(Memo1.Handle, 0, TM.tmAveCharWidth, TM.tmHeight);
    ShowCaret(Memo1.Handle);
  end;
end;
 
end.

[LuNaTk]

He buscado mas informacion sobre esto, Amigo Roman he visto en este hilo donde explicas tambien que es necesario el uso de un manejador de mensajes creado por nosotros para controlar "x" necesidad, y he visto una declaracion que es diferente a la que has dejado en el ejemplo de arriba de este hilo.

MemoOldWndProc: TWndMethod;


Si cambio esa declaracion, el programa si compila y corre, pero no se muestra el caret, no tiene ningun efecto, voy a tratar de averiguar porque.

Saludos y gracias por tu tiempo.

[LuNaTk]

Hola Club.

Ya pude conseguir lo que necesitaba, gracias a dec y Roman, amigos muchas gracias por su tiempo y paciencia, lo que cambie fue lo que esta en negrita, y aparte de ese cambio no me habia dado cuenta pero el evento "OnCreate" del Form1 no estaba bien asignado por mi, es decir en el codigo estaba escrito pero no lo agrege desde el Inspector de Objetos, no se si me explique, solo le di doble click a "OnCreate" de TForm de modo que dicho evento se activara y funciona bien, se crea el caret. Y para que funcionara en modo "Overwritte" puse Memo1.SelLength := 1; en el evento KeyPress del TMemo1.

Gracas nuevamente, este fue el codigo.

Código Delphi [-]
unit memoxx;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure Memo1Exit(Sender: TObject);
private
OldMemoWndProc: TWndMethod;
procedure MemoWndProc(var Msg: TMessage);
end;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
// Guardamos una referencia al método original
OldMemoWndProc := Memo1.WindowProc;
// Reemplazamos el manejador de mensajes de Memo1 por el nuestro
Memo1.WindowProc := MemoWndProc;
end;
procedure TForm1.Memo1Exit(Sender: TObject);
begin
// Destruimos el cursor al salir del control
DestroyCaret();
end;
{
Manejador de mensajes para Memo1
}
procedure TForm1.MemoWndProc(var Msg: TMessage);
var
DC: HDC;
TM: TextMetric;
begin
// Llamamos al manejador original
OldMemoWndProc(Msg);
// Si es el mensaje WM_SETFOCUS, crear el cursor
if Msg.Msg = WM_SETFOCUS then
begin
DC := GetDC(Handle);
GetTextMetrics(DC, TM);
ReleaseDC(Handle, DC);
CreateCaret(Memo1.Handle, 0, TM.tmAveCharWidth, TM.tmHeight);
ShowCaret(Memo1.Handle);
end;
end;
 
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Memo1.SelLength := 1;
end;
 
end.