TartalomFriss hozzászólások
Új fórum témákAktív fórum témákFriss blogbejegyzésekGoogle hirdetések |
külső program megnyitása delphiből
szuandras, 2010, december 21 - 08:10
Üdv mindenkinek,kerüljük a szakzsargont,mindíg csak szabatosan! Szeretnék egy külső programot megnyitni delphiből úgy ,hogy az egy általam létrehozott formon belül működjön és a formon még más komponensek is lehessenek(pl gombok checkbox...) Köszönöm a segítséget Üdv.szuandras »
|
KeresésBelépésIndex TechPC Fórum
Origo TechbázisSG.huIT café |
Más form meghívása
Sziasztok!
Új vagyok a fórumon, tehát nézzétek el nekem ha esetleg nem jó helyre írnám a kérdésemet. Kicsit tanácstalan vagyok, alap szinten tudok már Delphi-ben programozni, de most egy számomra teljesen ismeretlen területre tévedtem. Az szeretném megcsinálni, hogy:
Van 5 perogram amit írtam Delphi-ben, de mindegyik külön formon van. Szeretnék egy újabb olyan progit csinálni ami egyesíti az előzőeket.
Tehát a cél az lenne, hogy ha meghívom ezt a nyitó programot akkor kináljon fel 5 button-t, amire ha rákattintok a külső Delphis program elindul ez az egyesítő program meg bezáródik.
Remélem tudtok ebben segíteni nekem!
Köszönöm, szervusztok!
Pontosan mire kellene neked ez?
A form nem más mint az ablak, abban vagy a dokumentum látszik, még akkor is ha a Word, vagy Excel fut a háttérben (lehet úgy futtatni őket, hogy a saját programoddal módosítod a megnyitott dokumentumokat), vagy a külső program egy szimbóluma (mondjuk ikonja), de maga a futó program nemigen, mert az egy másik ablakot nyit mikor elindítod. Tehát ha mindenképp az ablakon belülinek akarod a Word-ot akkor ahhoz egy ál Word felhasználói felületet kell írjál. Tehát nem éri meg a macera.
Ha egy ablakból akarod futtatni pl. az Excelt (mint egy fájlkezelő), akkor
Az execute-t használhatod vagy:
winexec(pchar(filelistbox1.filename),4);
Ha a dokumentumot is akarod módosítani, akkor
var
Form1: TForm1; ExcelApp:OleVariant; range,firstWorkbook,MyWorkbook:OleVariant;
....
firstWorkbook:= ExcelApp.Workbooks.Open(opendialog1.FileName);
....
edit1.Text:=ExcelApp.worksheets[2].Range['b'+inttostr(spinedit1.Value+2),'b'+inttostr(spinedit1.Value+2)].text;
Stb.
Üdv.: Totó
Amennyiben csak látszatra
Amennyiben csak látszatra kell ablakon belüli futás, készíts egy olyan formot, aminek átlátszó a közepe!
Üdv.: Totó