Probleme mit TJvRichEdit Control einfügen..

[Angel4585]

Hallo,

ich habe folgendes Problem:

hiermit füge ich ein TJvGIFAnimator in ein TJvRichEdit ein:

Delphi-Quellcode:

procedure TForm1.RichEditChange(Sender: TObject);

  function GetGifAnimator : TJvGifAnimator;
  var i : integer;
  begin
  Result:=TJvGIFAnimator.Create(RichEdit);
  Result.Image:=JvGIFAnimator1.Image;
  i:=0;
  while RichEdit.FindComponent('ga'+IntToStr(i))<> nil do
    Inc(i);
  Result.Animate:=True;
  Result.Name:='ga'+IntToStr(i);
  end;

begin
LockWindowUpdate(Handle);
try
  if RichEdit.FindText(':D',0,Length(RichEdit.Text),[stSetSelection]) >= 0 then
    begin
    RichEdit.SelText:='';
    RichEdit.InsertControl(GetGifAnimator);
    end;
finally
  LockWindowUpdate(0);
  end;
end;

das funktioniert auch soweit, allerdings hab ich folgende zwei Probleme:

1. Das Control wird auf Pos(0,0) gesetzt, was ich allerdings ja durch left und Top bearbeiten kann, d.h. ich bräuchte die Pixel-koordinaten der Position wo das hin soll.

2. Scrollt das Control nicht mit, sondern bleibt immer gleich.

Kann mir da jemand helfen?

MfG