Contributor: SWAG SUPPORT TEAM
unit Msgedit;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
TPosChangeEvent=procedure(var row,col:integer) of object;
TMessageEdit = class(TEdit)
private
FPosChange:TPosChangeEvent;
FHandled :boolean;
protected
procedure PosChange;
public
constructor create(Aowner:Tcomponent);override;
procedure KeyDown(var key:word;shift:TShiftState);override;
procedure KeyPress(var key:char);override;
procedure MouseDown(button: TMouseButton; Shift: TShiftState; X, Y: Integer);override;
published
property OnPosChange:TPosChangeEvent read FPosChange write FposChange;
property OnKeypress;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TMessageEdit]);
end;
procedure TmessageEdit.poschange;
var x,y,x2:integer;
begin
y:=SendMessage(Handle, EM_LINEFROMCHAR, $FFFF, 0);
x2:=SendMessage(Handle, EM_LINEINDEX, $FFFF, 0);
x:=selStart - x2;
if assigned(FposChange) then FposChange(y,x);
end;
constructor TmessageEdit.create;
begin
inherited create(aowner);
Fhandled:=true;
end;
procedure TmessageEdit.KeyDown(var key:word;shift:TShiftState);
begin
PosChange;
FHandled:=true;
inherited keydown(key,shift);
end;
procedure TmessageEdit.KeyPress(var key:char);
begin
if not FHandled then exit;
if key#0 then
begin
PosChange;
FHandled:=false;
end;
inherited keypress(key);
end;
procedure TmessageEdit.mousedown(button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PosChange;
inherited mousedown(button,shift,x,y);
end;
end.