Придеться самому переписывать методы и создовать объекты потомки :-))

Popotel konechno nemnogo - okazalos' vovse eto i ne slozhno :-)

TSoloEdit = class(TEdit)
private
{ Private-Deklarationen }
fTimerCounter : Byte;
fOldCursor : TCursor;
fOldDragMode : TDragMode;
fLeftOrRand : Boolean;
fOldLeft : integer;
fEditTimer : TTimer;
fResizeable : boolean;
...
procedure fEditTimerTimer( Sender: TObject );
protected
{ Protected-Deklarationen }
...
procedure MouseMove( Shift: TShiftState; X, Y: Integer); override;
public
{ Public-Deklarationen }
...
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
{ Published-Deklarationen }
property Resizeable : boolean read FResizeable write FResizeable;
end;


constructor TSoloEdit.Create(AOwner: TComponent);
begin
inherited;
fEditTimer := TTimer.Create( nil ) ;
fEditTimer.Enabled := false;
fEditTimer.Interval := 100; //ms
fEditTimer.OnTimer := fEditTimerTimer;
end;

destructor TSoloEdit.Destroy;
begin
if Assigned( fEditTimer ) then
fEditTimer.Free;
inherited;
end;

procedure TSoloEdit.MouseMove( Shift: TShiftState; X, Y: Integer);
begin
if fResizeable then
begin
fTimerCounter := 0;
if ssCtrl in Shift then
begin
fLeftOrRand := x < ( Width / 2 ); //ansonst rechte Rand x > (Sender as TEdit ).width - 10

if ssLeft in Shift then
CalcPooos( x, y );

if ( x < 10 ) or ( x > width - 10 ) then
begin
if Screen.Cursor <> crSizeWE then
begin
fEditTimer.Enabled := true; //starttimer
fOldCursor := Screen.Cursor;
Screen.Cursor := crSizeWE;
fOldLeft := Left;
fOldWidth := Width;

fOldDragMode := DragMode;
DragMode := dmManual;
end;
end;
end
else
if fEditTimer.Enabled then
begin //sofort deaktivieren - auf Timer nicht warten
fEditTimer.Enabled := false;
Screen.Cursor := fOldCursor;
DragMode := fOldDragMode;
end;
end;

inherited;
end;

procedure TSoloEdit.fEditTimerTimer( Sender: TObject );
begin
if GetAsyncKeyState( VK_CONTROL ) < 0 then exit; //Strg ist noch gedrückt!

inc( fTimerCounter );
if fTimerCounter = 3 then
begin
Screen.Cursor := fOldCursor;
DragMode := fOldDragMode;
end;
end;

procedure TSoloEdit.CalcPooos( x, y : Integer);
var lNewLeft,lNewWidth : Integer;
begin
if ( Screen.Cursor = crSizeWE ) and fLeftOrRand then // dehnen nach links
begin
lNewLeft := fOldLeft + x;
lNewWidth := fOldLeft - lNewLeft + fOldWidth;

if lNewWidth < cMinWidth then
begin
Width := cMinWidth;
Left := fOldLeft + fOldWidth - cMinWidth;
end
else
begin
Left := lNewLeft;
Width := lNewWidth;
end;

fOldLeft := Left;
fOldWidth := Width;
end;

if ( Screen.Cursor = crSizeWE ) and ( not fLeftOrRand ) then // dehnen nach rechts
begin
lNewLeft := fOldLeft;
lNewWidth := x;

if lNewWidth < cMinWidth then
Width := cMinWidth
else
Width := lNewWidth;

Left := lNewLeft;
fOldLeft := Left;
fOldWidth := Width;
end;
end;