- Az NVIDIA szerint a partnereik prémium AI PC-ket kínálnak
- Két Zen 5-ös dizájnjának mintáit is szállítja már az AMD
- A Colorful "fagyosan kompakt" alkatrészekkel megy elébe a nyárnak
- A Keychron ismét egy űr betöltését vállalta magára az egerek szegmensében
- Az átlagnál vaskosabb ventilátorok kandikáltak ki a Corsair vitorlája mögül
- Milyen TV-t vegyek?
- Az NVIDIA szerint a partnereik prémium AI PC-ket kínálnak
- Milyen billentyűzetet vegyek?
- 3D nyomtatás
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Fujifilm X
- OLED TV topic
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- Bambu Lab X1/X1C, P1P-P1S és A1 mini tulajok
Hirdetés
-
Nyár végén jön az idei THQ Nordic Digital Showcase
gp Az új bejelentések mellett újabb részleteket kapunk a Gothic Remake-ről és a Titan Quest II-ről is.
-
Az NVIDIA szerint a partnereik prémium AI PC-ket kínálnak
ph Megkezdődött az NPU-k elleni hadjárat, de egy fontos részletet nem említ a cég.
-
Egyre közelebb a Poco F6 startja
ma Újabb ár/érték csatát nyerhet a Xiaomi almárka.
Új hozzászólás Aktív témák
-
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.) -
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
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
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
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
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ó, ú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
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
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
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
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
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
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
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
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
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] -
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. -
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.
Új hozzászólás Aktív témák
- Helldivers 2 (PC, PS5)
- Milyen TV-t vegyek?
- Gördeszka topic
- Az NVIDIA szerint a partnereik prémium AI PC-ket kínálnak
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Xbox Series X|S
- Anglia - élmények, tapasztalatok
- Konzolokról KULTURÁLT módon
- BestBuy ruhás topik
- Milyen billentyűzetet vegyek?
- További aktív témák...