Richtextbox, add embedded objects

Vi har brugt en richtextbox på vores grænseflade til visning af billeder og andre filer.

Det fungerer glimrende når vi dragger og dropper filerne ned på richtextboxen. Den viser filen, og den åbner det tilhørende program, når man dobbeltklikker på indholdet.

Vi har derimod lidt problemer, når vi tilføjer filerne via koden. F.eks.

RichTextbox1.OLEObjects.Add , , sFile

hvor sFile er en streng der indeholder filnavnet på den fil vi vil tilknytte.

Når vi benytter ovennævnte kode, så tilføjes indholdet fint nok, når vi vælger filen vha. en Commondialog, men når filen vælges og vi trykker på ok, så sættes indholdet ind og lige efter åbnes til tilhørende program.

Vi er ikke interesserede i at det tilhørende program åbnes, før vi selv dobbeltklikker på indholdet i Richtextboxen. Og ikke når den bliver valgt til indsættelse i RichTextboxen.

Hvordan håndterer vi det???

Desuden så åbnes det tilhørende program kun ved f.eks. billedfiler, smartdraw-filer o.l.

Ved et word-dokument åbnes word ikke, men til gengæld åbnes det heller ikke når vi dobbeltklikker på filens indhold.