Thx Ronin. I manage to keep my app on top in this way :
in the OnCreate event i use
SetWindowPos(Form1.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE OR SWP_NOACTIVATE OR SWP_NOSIZE);
and in the OnPaint event
SetZOrder(True);
and i want to say that it works perfectly. What do you think ?
Robertio
but i found that using OLE is slower than using DDE, so I will use this code :
WordDocument1: TWordDocument;
WordApplication1: TWordApplication;
var
NewTemplate, Visible, ItemIndex : OleVariant;
begin
try
WordApplication1.Connect;
except
MessageDlg('Bla bla bla'...
Ok Robertio, this is how i do it :
var
WordApplication, WordDocument: Variant;
AddToRecent:Boolean;
begin
WordApplication := CreateOleObject('Word.Application');
WordDocument := WordApplication.Documents.Add;
WordApplication.Selection.TypeText('Hello world');
AddToRecent := False...
The problem occurs at last cell. If the cell isn't displayed fully and you press and hold the mouse button on the arrow of the combobox the cells are scrolled until the last one is displyed and a combobox appears after last cell. Don't know why ?
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.