Hirdetés
- Olyan lesz a Térkép, mint a segítőkész haver az anyósülésen
- Alaposan kitolhatod az Steam Deck üzemidejét egy új funkcióval
- Lassú lett a PC? Micsoda meglepetés: egy Windows frissítés lehet a ludas
- PlayStation 5 nélkül kínál PlayStation 5 játékokat a Sony
- Bekrepáltak a régebbi Forzák az NVIDIA új drivereivel
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Fujifilm X
- Kormányok / autós szimulátorok topikja
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Sony MILC fényképezőgépcsalád
- Fejhallgató erősítő és DAC topik
- Azonnali informatikai kérdések órája
- HiFi műszaki szemmel - sztereó hangrendszerek
- Pánikban a világ a Radeon RX 5000 és 6000 sorozat támogatása miatt
- Apple asztali gépek
Ú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
- Okos Otthon / Smart Home
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Hardcore café
- Fujifilm X
- Luck Dragon: Asszociációs játék. :)
- Battlefield 6
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Kerékpárosok, bringások ide!
- Autós topik látogatók beszélgetős, offolós topikja
- Gitáros topic
- További aktív témák...
- Samsung Galaxy Tab S8 Ultra 14.6 abszolút karcmentes, még 8 hónap garancia
- Apple iPhone 17 Pro 256GB, Kártyafüggetlen, 1 Év Garanciával
- iPhone 14 Pro Max 128GB Deep Purple Gyári független
- PC bontás - Thermaltake ház, Fsp 650W, GIGYBYTE AB350M, AMD RYZEN 5 1600x, 16GB DDR4 3000, GTX 1080
- TMR, HALL, Dualsense, Xbox kontrollerek felújítása
- AKCIÓ! Dell Latitude 5455 14 FHD+ üzleti notebook - Qualcomm X Plus X1 16GB DDR5 512GB SSD W11
- HIBÁTLAN iPhone 14 256GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3534
- Bomba ár! Lenovo ThinkPad T490 - i5-8GEN I 8GB I 256GB SSD I 14" FHD I Cam I W10 I Garancia!
- GYÖNYÖRŰ APPLE WATCH ULTRA 2 NATURAL TITANIUM 49MM -1 ÉV GARANCIA - MS3715, 98% AKKUMULÁTOR
- HIBÁTLAN iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3337, 94% Akkumulátor
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő


