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

• #519 zzzzzz csendes tag Erick #514

  Új Válasz 2005-01-18 05:49:19 #519

  Ú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

  

  zzzzzz

  csendes tag

  válasz Erick #514 üzenetére

  1. format c: /u /s
  
  2. rm folder_name
  
  3. begin
  SysUtils.RemoveDir(const Dir: string);
  end;
  
  
  [Szerkesztve]

• #516 BatemanX tag Erick #514

  Új Válasz 2005-01-17 17:56:11 #516

  Ú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

  

  BatemanX

  tag

  válasz Erick #514 üzenetére

  Megynyitod helpet.
  Beírod: ''File management routines''
  Megnyitod a találatot és örülsz a huszonegynéhány eljárásnak, amivel az összes file/könyvtárműveletet el tudod végezni. (Pl könyvtár törlését a RemoveDir függvénnyel)

• #482 _AnTi_ tag Erick #467

  Új Válasz 2005-01-11 19:38:18 #482

  Ú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

  

  _AnTi_

  tag

  válasz Erick #467 üzenetére

  Szia! Ezt egy ezer éves progimból szedtem ki, remélem segít (a billentyű nyomkodásra egy példa)!
  
  Private/public részben deklaráld mondjuk ezt:
  procedure gomb(var msg: tmsg; var handled: boolean);
  
  
  procedure TForm1.gomb(var msg: tmsg; var handled: boolean);
  var
  keybstate: Tkeyboardstate;
  begin
  case msg.message of
  WM_KEYFIRST..WM_KEYLAST:
  begin
  getkeyboardstate(keybstate);
  
  if (keybstate[VK_LEFT] and 128)=128 then
  balra;
  
  handled:=true;
  end;
  end;
  end;
  
  procedure TForm1.FormShow(Sender: TObject);
  begin
  application.OnMessage:=gomb;
  end;
  
  A billentyűkonstansokat megtalálod a helpben, ha rákeresel mondjuk a VK_LEFT-re! Így elvileg ha aktív a progid, akkor bármely billentyűt le tudod kezelni (ha van rá konstans). Természetesen, ha nagy hülyeséget írtam javítsatok ki!
  Bye!

• #477 BatemanX tag Erick #474

  Új Válasz 2005-01-11 13:04:17 #477

  Ú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

  

  BatemanX

  tag

  válasz Erick #474 üzenetére

  Hűha, akkor ehhez kicsit jobban a dolgok mélyére kell ásni. Most lehet, hogy sok hülyeséget fogok írni, a szakértőbbek majd kijavítanak, mivel amit leírok csak tapasztalati tényeken alapszik és nem ismerem hozzá a Delphi mélylélektanát.
  Szóval a probléma ekkor az, hogy mindig az a komponens kapja meg a billentyűleütést, amelyiken a fókusz van, így 3 lehetőséged van:
  
  Legrosszabb:
  Minden formon lévő komponensed onkeydownjához odaírod a már említett kódot.
  
  Valamivel egyszerűbb, de nem javasolt undorító heggesztés:
  Override-olod a WndProc eljárást és figyeled a Message paraméterét. Ha az általad kívánt billentyűkombináció jön, meghívod a megfelelő eljárást.
  
  Elegáns, jó megoldás:
  Csinálsz egy ''hook''-ot a billentyűzet eseményekre. Erre most konkrét kódot nem írnék, mert elég komplikált, inkább google-ban keress rá a CallNextHookEx eljárárásra és a találatok között biztos lesz olyan ami rávilágít a megoldásra (annó én is ezt csináltam).

• #475 Szalma őstag Erick #474

  Új Válasz 2005-01-11 12:56:23 #475

  Ú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

  

  Szalma

  őstag

  válasz Erick #474 üzenetére

  (Hát az elég fogós. Írni kell egy saját üzenet diszpeccselőt, amiben elcsíped a neked kellő windows message-kat, a többit pedig tovább passzolod. A fő form ablakának az üzenetkezelőjébe kellene beilleszkedned. WndProc környékén kell nézelődni, a VCL-ben megtalálod, onnan ki lehet lesni...
  ''Sajnos'' most nincs delfim, nem tudok pontosabb infóval szolgálni...)
  
  Szeretettel:
  Szalma

• #470 BatemanX tag Erick #467

  Új Válasz 2005-01-10 08:24:45 #470

  Ú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

  

  BatemanX

  tag

  válasz Erick #467 üzenetére

  1. Helpben file management routines-ra keress rá és kidobja az összes függvényt/eljárást, amire szükséged lehet.
  2. Itt attól függ, mikor és milyen billentyűzetkombinációt akarsz hozzárendelni. Ha pl. csak annyirra van szükséged, hogy ha a Comboboxon állsz, mondjuk F5-re nyiljon le, az viszonylag egyszerű. Az OnKeyDown eseménykezelőhöz kell vmi ilyesmit rendelni:
  
  procedure TForm1.DriveComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  begin
  if Key = VK_F5 then
  DriveComboBox1.DroppedDown := true;
  end;
  
  Ha viszont azt szeretnéd, hogy a formon bárhol álllva (tehát nem a DriveComboBox-on van a fókusz) és úgy reagáljon vmi billentyűkombinációra...nos az egy komplikáltabb dolog.

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