- Apple iPhone 16 Pro - rutinvizsga
- Minden készen áll a Galaxy Unpackedre
- Samsung Galaxy Watch6 Classic - tekerd!
- Samsung Galaxy S21 FE 5G - utóirat
- Samsung Galaxy Watch5 Pro - kerek, de nem tekerek
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Samsung Galaxy S21 és S21+ - húszra akartak lapot húzni
- Samsung Galaxy A36 5G - a középső testvér
- Eltűnhet a Dinamikus Sziget
- Xiaomi 13 - felnőni nehéz
Új hozzászólás Aktív témák
-
#864
Hani
aktív tag
Törzsfőnök
#863
Hani
aktív tag
válasz
Törzsfőnök
#863
üzenetére
Huhh, valami runonce, vagy oneinstance volt... nem emlékszem, de megpróbálom előkeresni.
Addig egy alternatív megoldás: nézd meg programindításkor, hogy van-e már ilyen néven futó alkalmazás.
Ehhez a #550 körül találsz segítséget. -
Hani
aktív tag
Hello mindenkinek.
Buggyant kérdésem lenne, mert nem feltétlenül a delphi a megfelelő nyelv erre... de nem lehetne valahogy implementálni egy tárcsázóprogramot delphiben?
Egy rakás időmet elveszi, hogy naponta fel kell hívnom xx telefonszámot a régi partnercégek számai közül, hogy létezik-e még - és ha kicsörög, akkor tenni mellé egy pipát (lol). Ezt szeretném gépesíteni kissé.
Ha valakinek van valami ötlete, ne kíméjen : )
Köszönöm, előre is. -
#579
Hani
aktív tag
Sixkiller6
#578
Hani
aktív tag
válasz
Sixkiller6
#578
üzenetére
Jajajaj... a Fórummotor lecserélte a Word( s[ i ]) -t ... csodálkoztam is, hogy miért lett kurzív minden az s után...
Mellesleg lehet, hogy simán megy
SendMessage(ActiveControl.Handle, WM_KEYUP, Ord('C'), 0);
módon is a dolog - ha igen, akkor nem kell ablakot keresgélni, ami örvendetes.
Ekkor simán csinálhatnánk egy paraméterezett eljárást, char paraméterrel, ami a 'C' helyére kerülne... csak most nem tudom kipróbálni.
[Szerkesztve] -
#577
Hani
aktív tag
Sixkiller6
#576
Hani
aktív tag
válasz
Sixkiller6
#576
üzenetére
A PostMessage körül kell keresgélned.
Ha már úgyis benne vagyunk az ablakoknak küldött üzenetekben, küldjük el ezt a bill-leütést pl. a Notepad-nak.
Procedure TForm1.Button1Click(Sender: TObject);
Var
wnd : HWND;
i : Integer;
s : String;
Begin
//Megkeressük a notepadot
wnd := FindWindow('notepad',nil);
If wnd <> 0 then
Begin
wnd := FindWindowEx(wnd,0,'Edit',nil);
// Ha már úgyis megtaláltuk, beleírunk jól:
s := 'NoMijaFene,NemisNyútama Billyenjtyúkho';
For i := 1 to Length(s) do
SendMessage(wnd, WM_CHAR, Word(s), 0);
// nyomunk utána egy [ENTER]-t, hogy szép legyen
PostMessage(wnd, WM_KEYDOWN , VK_RETURN, 0);
// vagy [SPACE]-t, vagy... ezeket megtalálod a helpben.
PostMessage(wnd, WM_KEYDOWN , VK_SPACE, 0);
End;
End;
Szerk: Hinye, de szépen megformázta...
[Szerkesztve] -
Hani
aktív tag
Bocs, nem voltam elég világos.
Legyen mondjuk a timered neve T1Timer. Ekkor
procedure TForm1.Button1Click(Sender: TObject);
Var handle_abc_Window: HWND;
Begin
//Lekérem a handle-t a keresett ablakhoz
handle_abc_Window:= FindWindow('abc', nil);
//Ha 0-t ad vissza, akkor elbuktam, ha nem, akkor van ilyen, és indul a timer
If handle_abc_window<>0 Then T1Timer.Enabled:=True;
...
...
...
end; -
Hani
aktív tag
Lehet, hogy nem megy, mert most nem tudom kipróbálni, de a FindWindow körül keresgélj.
procedure TForm1.Button1Click(Sender: TObject);
var
handle_abc_Window: HWND;
begin
handle_abc_Window:= FindWindow('abc', nil);
end;
Ha nullával tér vissza, nincs ilyen app. Ha meg van, akkor a hozzávaló handle-t adja meg, ami alapján be tudod zárni, és máris tudod, hogy nem fut
Sok szerencsét. -
-
Hani
aktív tag
Helló mindenkinek.
Valaki hallott már Delphi alatt valamilyen zip /rar /ace /arj /... csomagolt file - rutinokról?
Csinálok egy rakás textfile-t, meg azokhoz minimum egy kép is tartozik - ezt szeretném egy csomagba rakni, hogy egy szerver a net másik oldalán ki tudja bontani.
Szintén másik kérdés, ami most hirtelen eszembe jutott, tehát még nem néztem utána, de mindjárt: .jpg képek kezelése: Van olyan rutin, amivel át lehet méretezni (/tömöríteni, méretcsökkenteni, stb) ? -
Hani
aktív tag
Vagyis ha jól értem, akkor van egy lekódolt szöveges file-od?
Kérdések hozzá:
- Az egész .zip kódolt, vagy csak az az egy file?
- Ha az egész, akkor hány file van a .zipben? Hülye kérdésnek látszik, de ha van 6-8 db., akkor meg lehet kerülni a titkosítást kódhossztól függetlenül.
- Ha nem, akkor próbálj meg visszaemlékezni a kódra.
Ha nem jut eszedbe a kód, akkor az Advanced ZIP Password Recovery, vagy az Ultimate ZIP Cracker segíthet az emlékezésben.
Gép, szerencse, kód, stb. kérdése.
Lao-ce-nek igaza van, legközelebb légyszi az ilyet az ''azonnali kérdések órája''-ba nyugodtan beteheted, oda simán illik.
Sok szerencsét. -
Hani
aktív tag
Hümm.
És mit szólnál ilyesmihez?
(Persze a pontok nélkül - azok csak ''távtartónak'' vannak ott.)
Procedure TForm1.SajatEvent(Sender :Tobject);
Begin
... Edit2.Text:='a';
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
... Button2.OnClick:=SajatEvent;
End;
Egy próbát megér.
Esetleg a SajatEvent után berakhatod zárójelbe a Sender-t. -
Hani
aktív tag
Ez így teljesen jó - tervezési időben nem is sok látnivaló van egy editboxon
Persze már alapból a form is dinamikus, tehát nincs sok választásom - nagyon jó lesz ez így, ha sikerül. Épp csak ki kell próbálnom, ahhoz meg gép kell (ami viszont 20.-áig nem lesz - /Me zokogZokog.) -
Hani
aktív tag
Hajh, Property-t szeretnék.
Azzal kezdődött, hogy volt max. 16 editboxom (mikor mennyi kell), aminek a tartalmát betöltöm egy sql scriptből. (betölt, szétdarabol, ellenőriz, berak .Text-nek)
Aztán meg kézzel kijavítom az esetleges elírásokat, nyomom a gombot, és már
menti is a megfelelö helyre.
De nem akartam menteni a dolgokat, csak akkor, ha valamit változtattam.
Arra, hogy változott-e a text, galád módon nem csináltam külön rutint, inkább az elején megadtam az eredeti szöveget .Text-nek is, meg .Hint-nek is, aztán hasonlítgattam a végén. Igen ám, de az mégsem jó így, mert később lett normál .Hint is, hát akkor legyen a HelpKeyword, azt itt úgysem fogom használni.
Persze mégis. Hát beraktam tömbbe.
Aztán jött az ötlet, hogy mennyivel szebb lenne saját property, ha már úgyis blokkban csinálom a dolgokat, With Sender As TEdit do begin... rendszerben.
Ki is próbálom majd jól a dolgokat, amint lesz rá lehetőségem. -
Hani
aktív tag
Helló, újra.
Köszönöm az eddigi tanácsokat, megfogadtam (pl. százezer zárójel, ill. Ini-feldarabolás).
Az & jel is megoldódott a && használattal, valóban - a hiba oka az volt, hogy a különféle gépeken különféle kódkészlet volt, és pl. az egyik (észt) karakterkészletben nem volt ilyen
Viszont eszembe jutott egy újabb dolog, amit mindig szerettem volna tudni.
Elvileg lehet egy-egy osztályhoz (Pl. TEdit) saját property-ket adni.
Csinált valaki már ilyet? (Most éppen egy három dimenziós tömbbel van megoldva, de olyan szép lenne..) -
Hani
aktív tag
válasz
KovacsUr
#254
üzenetére
Mit tárolok Iniben?
jajj..sajnos mindent.
Nagyon szimpatikus volt, hogy szöveges - tehát tudom szerkeszteni - ráadásul van pl F.ReadString('MelyikBlokkban','Mitkeressek','Hanincsenmiveljöjjekvissza') eljárás, ami igazán tetszett.
Tudna valaki valamit az Ini helyett ajánlani?
Amiket csinálok vele: (változó hosszú) sorokat olvasok be, beírok/változtatok a sorokon, ilyesmi.
Ha ez mással is megcsinálható, ahol nincs 64K-s határ, nagyon megköszönném, ha valaki tudna benne segíteni, hogyan is megy a beolvasás/írás.
Nem emlékszem egyébként, hogy miért is lett ez, a többivel valami problémám támadt, mindjárt elgondolkozom rajta, hogy hogyan is volt. -
Hani
aktív tag
Helló!
Köszi a segítséget, meg a fáradozást.
Ami igazán érdekelne, hogy miért megy, és miért nem megy ?
Az ini-hez: Sajnos nem elég a 64K - már most 188K, és valamennyivel lesz ez még több is. 98 alatt egy gépen próbálták, ahol most nem okés, de régebben az volt. Xp, 2K, NT4.0 alatt próbáltam egy rakás gépen, minden szép és jó
Az & jelhez: Ugyanazon a gépen néha megy, néha nem.
Hát, ez az, ami elszomorít. -
Hani
aktív tag
Hoppá - új kérdések.
Delphi 7-tel .ini-t használok infótárolásra. Mert azt szeretem.
De van egy ismerősöm, aki szintén letesztelte, 98 alatt, és nem megy. Kiderült, hogy levágja az ini-t 65499 byte-nál. (vagyis NEM 64KByte-nál)
Nálam ugyanezt nem teszi (XP, 2K, NT4.0 alatt), ráadásul eddig neki sem csinálta.
Viszont nem csináltam a filekezeléssel semmit.
Mi lehet a baj? Valami ötlet?
2. Ki szeretném íratni, hogy Drag&Drop. Néha ki is írja, & jellel, néha inkább a D-t húzza alá, ugyanazon a gépen. Van erre valamilyen megoldás? Vagy legyen az igen csúnya Showmessage(`Drag´+CHR(ORD(´&´))+´Drop´)? Az mindig megy?
Szerk: Hmm .Az előző hozzászóláshoz: Nem lehet megoldani, hogy itt is látszódjon valahogy a struktúra? Tehát ne szedje ki a space-eket automatikusan?
(vagy � -t kéne használnom?)
Na nem baj.
[Szerkesztve] -
Hani
aktív tag
Bocs, nem figyeltem.
Ha még mindig Labelt szeretnél, akkor esetleg egy ilyesmit képzeltem (egy új Form-on)
....
....
UjForm:= Tform.Create(Application);
With UjForm do
Begin
width:=300;
height:=400;
Position:=poDeskTopCenter;
BorderStyle:=bsToolWindow;
BorderIcons:=[];
//bla bla bla
End;
SajatLabel:=TLabel.Create(UjForm); //Parent-nek ugye figyelsz, mit adsz meg
With SajatLabel do
Begin
Parent:=UjForm;
AutoSize:=False;
WordWrap:=True;
Left:=1005;
Top :=1005;
Width:=290;
Height:=300;
Transparent:=True;
Align:=alLeft;
Font.Size:=17;
Font.Name:='Americana BT';
Font.Style:=[fsBold];
Caption:='EzMegIttACaption';
//Bla blabla bla blaa.
End;
Persze a property-ket késõbb is beállíthatod.
Mellesleg ne felejtsd el majd felszabadítani a lefoglalt erõforrásokat (Free). -
Hani
aktív tag
Helló!
Hülye kérdés, és ha volna Delphim, meg is nézném, de nincs, és biztosra akarok menni.
Tehát:
Beszól-e vajon, ha nem azt írom, hogy
If (valami=123) AND (valami2=456) Then...
Hanem
If ((valami=123) AND (valami2=456)) Then...
Azt hiszem, nem, de kérlek, erősítsetek meg!
Szintén help megnézés nélkül: ugye figyelembe veszi a zárójeleket, ha így van pl:
If ((valami=12) AND ((valami2=34) OR (valami2=56))) Then...
Biztassatok, vagy cáfoljatok, pls.
[Szerkesztve] -
Hani
aktív tag
Tiszteletem.
No, ha mar igy is megvan a topic, hasznalnam...
Nagy problemam: EditBoxokba ListBoxbol drag&droppal tennem a cuccokat, es meg szeretnem akadalyozni, hogy normalisan szoveget irhassak be.
Erre - gondoltam en - jo lesz, ha siman OnKeyDown(/Press/Up)-ra csinalok egy
With Sender As TEdit Do
Text:=´´;
eventkezelest. De nem. Mindenkepp berakja a Key-t is, amit az eventtol kap.
Nincs valami, ami kiveszi a Key-t, pl. vmi fFlush vagy hasonlo?
(Jo, persze megcsinalom OnChange-re Listaban-Van-E-Az-Uj-Szoveg - ellenorzessel, de azert erdekelne.)
Új hozzászólás Aktív témák
Hirdetés
- AMD Navi Radeon™ RX 9xxx sorozat
- Apple iPhone 16 Pro - rutinvizsga
- Tőzsde és gazdaság
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Kuponkunyeráló
- Beszántaná a marketingért felelős részlegét az Intel
- Minden készen áll a Galaxy Unpackedre
- Samsung Galaxy Watch6 Classic - tekerd!
- Óvodások homokozója
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- GARIS! Lian Li HydroShift !!!! LCD !!!! 360TL (RGB)
- Nitro ANV15-51 15.6" FHD IPS i5-13420H RTX 4050 16GB 512GB NVMe magyar vbill ujjlolv gar
- KFA2 RTX 3060 12GB GDDR6 1-CLICK OC Eladó!
- ZOTAC RTX 3060 12GB GDDR6 GAMING Eladó!
- DELL LATITUDE 7400, 14" FHD IPS, i7-8665U CPU, 16GB DDR4, 256GB SSD, W11, 27% áfás számla, 1 év gara
- Új! HP 230 Vezetéknélküli USB-s Billentyűzet
- ÁRGARANCIA! Épített KomPhone i7 14700KF 32/64GB RAM RTX 5090 32GB GAMER PC termékbeszámítással
- REFURBISHED - DELL Thunderbolt Dock WD19TBS docking station (210-AZBV)
- REFURBISHED és ÚJ - HP USB-C/A Universal Dock G2 docking station (5TW13AA) (DisplayLink)
- BESZÁMÍTÁS! Gigabyte H370 i5 9500 32GB DDR4 512GB SSD RTX 2060 Super 8GB ZALMAN S2 TG be quiet! 650W
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged