unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure OnKeyPress(Sender: TObject; var Key: Char);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.OnKeyPress(Sender: TObject; var Key: Char);
var
Line,Column : Integer;
begin
With Memo1 do
begin
Line := Perform(EM_LINEFROMCHAR,SelStart, 0);
Column := SelStart - Perform(EM_LINEINDEX, Line, 0);
if (Column >= 10) and (Key <> #8) and (Key <> #13) then
Key := #0;
end;
end;
end.