Hola a todos:
Necesito saber en que posicion FILA, COLUMNA se encuentra el cursos de edicion dentro de un MEMO.. algo mas o menos asi como lo que tienen todos los editores de codigo que te dicen en que lugar exactamente esta para do el cursor,,, y que cuando lo mueva con las teclas del cursor del teclado pues que se actualice esta informacion. Probe con el truco que se encuentra en TrucoMania y no funciona.. no se por que sera.
Código Delphi
[-]
procedure TFrmChild.SynEditorKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
Row : Integer;
Col : Integer;
LineLength : Integer;
begin
Row := SendMessage(SynEditor.Handle,EM_LINEFROMCHAR,SynEditor.SelStart,0);
Col := SendMessage(SynEditor.Handle,EM_LINEINDEX,Row,0);
LineLength := SendMessage(SynEditor.handle, EM_LINELENGTH, Col, 0);
Col := SynEditor.SelStart - Col;
StatusBar1.Panels[1].Text := IntToStr(Row) + ': ' + IntToStr(Col);
end;
NOTA: Utilizo un SynEditor para mostrar los textos, que a la larga es lo mismo que un TMEMO.