Cara, eu não aconselho você a fazer isso, porque é uma bela duma gambiarra. Mas se você quiser dar uma olhada segue o código:
unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
type
TForm2 = class(TForm)
Memo1: TMemo;
Timer1: TTimer;
procedure Memo1KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
private
pressHomeButton: Boolean;
function getBiggestLine(AMemo: TMemo): Integer;
function getCurrentLine(AMemo: TMemo): Integer;
function whiteSpaceCountToString(ASpaces: Integer): String;
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
pressHomeButton := False;
end;
function TForm2.getBiggestLine(AMemo: TMemo): Integer;
var
i: Integer;
iCurrentLinesCount: Integer;
iBiggestLinesCount: Integer;
begin
iBiggestLinesCount := 0;
for i := 0 to AMemo.Lines.Count - 1 do
begin
iCurrentLinesCount := Length(AMemo.Lines[i]);
if (iCurrentLinesCount > iBiggestLinesCount) then
begin
iBiggestLinesCount := iCurrentLinesCount;
Result := iBiggestLinesCount;
end;
end;
end;
function TForm2.getCurrentLine(AMemo: TMemo): Integer;
Var
Coordinate: TPoint;
Begin
Coordinate := Memo1.CaretPos;
Result := Coordinate.Y + 1;
End;
procedure TForm2.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) and (Memo1.Lines.Count > 0) then
begin
Key := #0;
Memo1.Lines.Insert(getCurrentLine(Memo1), whiteSpaceCountToString(getBiggestLine(Memo1)));
pressHomeButton := True;
PostMessage(Memo1.Handle, WM_KEYDOWN, VK_HOME, 0);
end;
end;
function TForm2.whiteSpaceCountToString(ASpaces: Integer): String;
var
i: Integer;
begin
Result := '';
for i := 1 to ASpaces do
Result := Result + ' ';
end;
end.
outra hora vou dar uma melhorada nele, mas por hora é isso. Qualquer duvida pergunte.
PS.: Para funcionar corretamente, é necessário mudar a fonte do Memo
para uma fonte onde todos os caracteres tenham o mesmo tamanho. Ex: "Lucida Console".