Hey,
okay danke, also mit den code funzt es bloß er springt nicht auf das zweite bild.
Hab auch das hier probiert funktioniert auch irgendwie nicht richtig:
Delphi-Quellcode:
procedure ..
var
u: IUnknown;
reole: IRichEditOle;
i, n: Integer;
obj: TREObject;
begin
FillChar(obj, SizeOf(obj), 0);
obj.cbStruct := SizeOf(obj);
with re do //mein jvrichedit
begin
Perform(EM_GETOLEINTERFACE, 0, Integer(@u));
if Succeeded(u.QueryInterface(IID_IRICHEDITOLE, reole)) then
begin
n := reole.GetObjectCount;
ShowMessage(Format('%d objects found', [n]));
for i := 0 to Pred(n) do
begin
reole.GetObject(i, obj, REO_GETOBJ_ALL_INTERFACES);
SelStart := obj.cp;
SelLength := 1;
SelText := Format('<object %d>', [Succ(i)]);
ShowMessage('yikes');
end;
end;
end;
end;
Beispiel was da rauskommt:
[Bild1]
texttexttext
[Bild2]
wird ersetzt:
<object 2><object 1>
texttexttext
hab auch das mit
REO_GETOBJ_NO_INTERFACES probiert.
funktioniert auch leider nicht.
Hat einer eine Ahnung warum das nicht funktioniert?
danke im voraus
MfG
Chefx