Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- eBay-es kütyük kis pénzért
- GoodSpeed: Márkaváltás sok-sok év után
- Autódiagnosztika: a gyakorlatban
- sziku69: Szólánc.
- Mr Dini: Mindent a StreamSharkról!
- Magga: PLEX: multimédia az egész lakásban
- gban: Ingyen kellene, de tegnapra
- sh4d0w: Kalózkodás. Kalózkodás?
Új hozzászólás Aktív témák
-
Attila1981
csendes tag
Megpróbálom összefoglalni:
Van egy szovegszerkeszto ablakom, és ha itt elmentem az irást txtként (csak txt-t adtam meg), egy másik könyvtárba (tehát nem abba a könyvtárba ahol az egész programom és reszei vannak) akkor , ha kilépek a szovegszerkeszto ablakból lefagy mert nem találja a gombokon levő képeket, háttérképeket stb.
De ha ugyanabba a mappába mentem el a txt-t ahol a programom található akkor megy minden jól! Tehát amint elmentem máshová abban a könyvtárban keresi az adatokat. Ezt már megoldotta a képekre.
public
workingDirectory : string;
end;
procedure Talap.FormCreate(Sender: TObject);
begin
workingDirectory:=extractfilepath(paramstr(0));
end;
....
okgomb.LoadFromFile(alap.workingdirectory+'kepek\okgomb.bmp');
Igy most már mukodnek a képek.
De van egykét fájlom amit igy nyitik meg gombnyomásra:
procedure TfrmdXXXXX.XXXXClick(Sender: TObject);
begin
ShellExecute(handle,nil, 'mappa\fajl.htm' ,nil,nil, SW_SHOWNORMAL);
end;
Ezt kellene megirnom valahogy ugy hogy a alap.workingdirectory benne legyen.
Mert más könyvtárba való mentés után ezek még nem mennek.
Kössz -
Attila1981
csendes tag
válasz
Attila1981
#910
üzenetére
Már megoldottam, a hiba az volt hogy ha máshová mentettem a txt-t akkor nem talált vissza a projekt mappájába, azért keresett minden képet és adatot.
Már megadtam a képek, videok utvonalát ahol szükséges de a fájlokét nemtudom
Ezzel a paranccsal megnyitok egy fájlt.
ShellExecute(handle,nil, ‘mappa\fajl.kierjesztés’ ,nil,nil, SW_SHOWNORMAL);
Na most, nekem meg kell adni a könyvtár lekérdezést, hogy mi hol van
Pl.
....LoadFromFile := xxxx.workingdirectory+’kep.bmp’; - így megy a kép
Hogyan tudom megadni ugyanezt a fájl betöltésénél??
Így nem ment:
ShellExecute(handle,nil, ‘xxx.workingdirectory+\mappa\fajl.kierjesztés’ ,nil,nil, SW_SHOWNORMAL); -
Attila1981
csendes tag
Van egy Főablak nevű formom, a Főablak egyik gomjára kattintva előjön a Ablak nevű formom. Az Ablak nevű formomonn van egy Szövegszerkesztőgomb és egy Visszagomb. A Szövegszerkesztőgombnak a megnyomására egy szövegszerkesztő jön elő új ablakban. Ebben a szövegszerkesztőben működik a másolás, új, mentés, nyomtatás, nyomtatás beállításai, betutipus, keresés, csere. Ugy van megadva hogy csak TXT-ként tudjak menteni, nyitni. Ha elmentek, vagy megnyitok valamit, és kilépek a Szövegszerkesztőből, visszakerülök az Ablak formra. NA EDDIG EZ JÓL Működik. Most jön a hiba. Ha megnyomom a Vissza gombot, hogy visszakerüljek a Föablakra, akkor leáll olyan futási hibával hogy nemtudja megnyitni a Főablakban lévő háttérképet. Ugyanaz a háttérképet használom a Főablakba és a Ablak formba. Csak mentésnél és nyitásnál jelenik meg ez a hiba!
Tud nekem valaki segíteni, nagyon sürgős!!! -
Attila1981
csendes tag
Van egy kis problémám! Elkészült a delphis programom! Vann benne adatbázis és videólejátszás. A videóbejátszás a Delphi Media Playerjával van megoldva. Elkészítettem a programom telepítőjét. A probléma csak akkor keződött mikor olyan gépre telepítettem ahol nincsen Delphi. Olyan gépen ahol van Delphi ott simán fut. Az adatbázist már megoldottam, de a Delphi Media Playerjával nemjutok semmire ugyanis, nem megy. Mit kell még csatolnom a telepítés készítésekor, és hová? Próbáltam betenni a telepítésbe a MPlayer.dcu és a MPlayer.res fájlt is, de így sem ment. Van még valahol valami tartézékai a Playernak.
Ha nem lehet így megoldani, a Windows Media Playerral hogyan kell meghívni gombnyomásra a videóbejátszást. Kérlek segítsetek!!!!
Új hozzászólás Aktív témák
- Apple iPhone 15 128GB,Újszerű,Dobozával,12 hónap garanciával
- ASUS Vivobook S14 OLED - Ultra 5 226V - 16/512GB - Garancia
- 32GB DDR5 RAM-ok tesztelve, garanciával, számlával (a Te nevedre kiállítva)!
- XBOX Series S 512GB, 6 hónap teljeskörü garanciával, üzletből eladó!
- ELKELT!!! Ubiquiti Unifi UCG-Fiber eladó. Gar:2027.05-ig Fox az árban.
- Samsung Galaxy A21s 32GB, Kártyafüggetlen, 1 Év Garanciával
- GYÖNYÖRŰ iPhone 14 Pro Max 128GB Space Black -1 ÉV GARANCIA - Kártyafüggetlen, MS2998, 100% Akksi
- VADIÚJ Bontatlan! Honor 400 Lite 8/256 AMOLED 120Hz Velvet Grey, Dual SIM 2év gar
- Törött, Hibás iPhone felvásárlás!!
- OnePlus Pad Go Green nagy kijelző, könnyű hordozhatóság 8/128 GB Használt, karcmentes 3 hó
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

