Új hozzászólás Aktív témák

• #918 Diskcopy tag Attila1981 #917

  Új Válasz 2005-09-30 12:22:04 #918

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  válasz Attila1981 #917 üzenetére

  A dolog ott is ugyanaz...
  

  
  begin
  if RichEdit1.Modified then  
   if (Sender <> nil) and (Sender.HandleAllocated = True) and (SendMessage(Sender.Handle, EM_CANUNDO, 0, 0) = 1) then begin
      SendMessage(ActiveControl.Handle, WM_UNDO, 0, 0);
     statusbar1.text := 'undone'; 
    end;
  else statusbar1.text:='undo';
  end;
  

  
  

• #916 Diskcopy tag Attila1981 #915

  Új Válasz 2005-09-29 19:51:10 #916

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  válasz Attila1981 #915 üzenetére

  Gondolom memoval csinálod magát a szerkesztést... Bővebben: link nézzd meg.

• #914 Diskcopy tag Attila1981 #913

  Új Válasz 2005-09-29 07:25:52 #914

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  válasz Attila1981 #913 üzenetére

  Üdv!
  Ha képeket kell betöltened, akkor miért nem használsz, mondjuk egy ImageListet, és akkor nem kéne kutatnod utánnuk, mert belefordulna az exe fájlba... Bővebben: link itt egy komplett példa rá, hogy kell gombbal használni, vagy csak simán. amúgy meg szerintem valahogy így kéne a shellexecute-t:
  ShellExecute(Handle, 'open', PChar('notepad'), PChar('c:\test\readme.txt'), nil, SW_SHOW); Ha mondjuk notepaddel szeretnéd. Ha ez még mindíg nem az ami kell.
  Amúgy meg openDialog-nál, savedialognál az Options részen ha lenyitod a + jellel, van egy ofNoChangeDir amit true-ra kell állítani.. Ha jól emlékszem ez akadályozza meg a könyvtár tényleges váltását.. Próbáld ki ezeket.
  

• #912 Diskcopy tag Attila1981 #911

  Új Válasz 2005-09-28 09:00:25 #912

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  válasz Attila1981 #911 üzenetére

  Az a gond, hogy nem érteni pontosan mit akarsz, vagy csak túl reggel van.. de
  ‘xxx.workingdirectory+\mappa\fajl.kierjesztés’ itt a plusz jel nem jó helyen van.. amúgy meg aktuális könyvtárat lekérdezed így, var
  dir : string;
  begin
  dir := GetCurrentDir;
  end;
  
  az már támpont. amúgy miért nem open/savedialoggal nyitod meg a filet.. kicsit részletesebben írd már le, mert én nem igazán értem mi a gond.
  

• #911 Attila1981 csendes tag Attila1981 #910

  Új Válasz 2005-09-27 22:58:32 #911

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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);

Új hozzászólás Aktív témák