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
