Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Brogyi: CTEK akkumulátor töltő és másolatai
- lezso6: Miért is jó, ha dohányzol?! Megéri rászokni!
- btz: Internet fejlesztés országosan!
- sh4d0w: Én és a számítógép
- Geri Bátyó: Agglegénykonyha 7 – Még egy megosztó – de gyors – étel: resztelt máj
- ldave: New Game Blitz - 2025
Ú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
- Milyen belső merevlemezt vegyek?
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Mibe tegyem a megtakarításaimat?
- Apple iPhone Air - almacsutka
- Elemlámpa, zseblámpa
- Okos Otthon / Smart Home
- AliExpress tapasztalatok
- Kormányok / autós szimulátorok topikja
- Xbox Series X|S
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- További aktív témák...
- Erő és Megbízhatóság: Dell Latitude E6530 (14", i7) Laptop SSD-vel!
- iPhone 16 PRO MAX 256GB fehér titán MEDIAMARKT számla 2027 szeptember 19-ig Apple garancia! Akku 97%
- RYZEN 5 7600X DDR5 FÉLKONFIG (GARIS)
- GIGABYTE RTX 2070 SUPER 8GB ELADÓ
- Új Gamer PC i5-i7 12-14400F/RTX 5060 + 11 Féle VGA/500Gb - 2Tb SSD/16-32Gb DDR4/600-850W 2-4Év Gar
- Csere-Beszámítás! Garis! Asus Tuf FX608H Notebook! I5 13450HX / RTX 5050 8GB / 16GB DDR5 / 1TB SSD
- GYÖNYÖRŰ iPhone 11 64GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3167, 100% Akkumulátor
- BESZÁMÍTÁS! ASROCK B650M R7 7700 32GB DDR5 1TB SSD RX 6900XT 16GB Enermax EQUILENCE 1000W
- Apple iPhone 11 64GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA!Épített KomPhone Ryzen 5 9600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest