- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Rap, Hip-hop 90'
- Luck Dragon: Asszociációs játék. :)
- Brogyi: CTEK akkumulátor töltő és másolatai
- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Parci: Milyen mosógépet vegyek?
- btz: Internet fejlesztés országosan!
- NASsoljunk: ZyXEL NSA-310 és az FFP
Új hozzászólás Aktív témák
-
_AnTi_
tag
Sziasztok!
Gergosz2: a turbo delphi bármely verziója megy tudomáson szerint vista/win7 64-en, illetve azt hiszem a 2006-os delphitől kezdve minden változat megy. Turbo Delphi bizonyos verziója ingyenes, a többiből lehet trial-t letölteni itt érdemes keresgélni.
LeoZso: ezt olvasd át
S-eye: ahogyan Gyuri16 is már írta neked a delphi az egy szoftverfejlesztő környezet. Ezzel nem tudsz nyákot rajzolni, "csak" egy olyan programot írni, amit később erre lehet használni, ami nem olyan egyszerű és ha mindenképpen delphiben kell megoldanod meg kell hozzá tanulnod delphiben programozni. Vannak erre célszoftverek.
Remélem még segíthettem valakinek, mert látom elég régi dolgokra írtam.
-
_AnTi_
tag
Szia!
Mindkét komponensnél a font.size-al tudod módosítani a betűméretet. Pl.:
memo1.font.size:=12;
Az egyetlen gond ezzel a két komponenssel, hogy ha változtatod a betűméretet, akkor az összes benne lévő szöveg mérete módosul.
Nézz körül a richedit környékén, ha kicsit többre vágysz!
-
_AnTi_
tag
-
_AnTi_
tag
Szia!
Egy edit mező láthatóságát a visible tulajdonságával tudod állítani (pl.: edit1.visible:=false - az edit mező nem látható). A tartalmát a text tulajdonságából kapod meg, tehát valtozo:=edit1.text. Az edit mezőnek van egy onkeypress eseménye, a key=#13 az entert jelenti.
Nemtom ilyenekre volt-e szükséged ehhez a részhez, ha nem, akkor bocsi!
A BitBtn nálam műxik...
[Szerkesztve] -
_AnTi_
tag
Hali!
Quickreporttal próbálkozom (most használom először), és a következő a problémám:
nyomtatnom kellene egy listát, ahol minden egyes tételnek további paraméterei vannak (úgy, mint ahogy egy számla is kinéz, tehát pl.: terméknév - gyáriszám - ár, stb.). A gondom az, hogy nem tudom hogyan kérhetnék új oldalt, illetve a fejlécet és a láblécet szeretném ''átvinni'' a következő oldalra is.
A válaszokat előre is köszönöm! -
#880
_AnTi_
tag
Drótszamár
#879
_AnTi_
tag
válasz
Drótszamár
#879
üzenetére
Valóban! Ha FileMode:=0-val nyitom meg (csak olvasás
), akkor királyságos lesz! Ezer hála, hogy felhívtad rá a figyelmet! 
-
_AnTi_
tag
Valószínűleg egy kis tökéletesítésre szorul, de ezen el tudsz indulni. Egy edit mezőben van a futtatandó program elérési útja és neve.
implementation
uses shellAPI;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
startupinfo : Tstartupinfo;
processinfo : Tprocessinformation;
command : array [0..512] of Char;
success : boolean;
begin
strpcopy(command, edit1.text);
fillchar(startupinfo, sizeof(startupinfo), #0);
startupInfo.wShowWindow:=SW_SHOWNORMAL;
startupinfo.cb:=sizeof(startupinfo);
startupinfo.dwFlags:=STARTF_USESHOWWINDOW;
Success:=CreateProcess(nil, command, nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil, nil, Startupinfo, Processinfo);
{ if success then
label2.Caption:='Minden ok!'
else
label2.Caption:='Valami nem jó!';}
end;
Sok Sikert! -
_AnTi_
tag
A Pos függvény az első találatig keres, és a keresendő karakter szövegben található pozícióját adja vissza. Kicsit zavaros lett ez a mondat...
Tehát:
Ha Te 'r' betűt keresel és 13-at kapsz vissza, akkor az azt jelenti, hogy az első 'r' a 13-ik helyen található az általad vizsgált szövegben. Mellesleg a Pos case sensitive, tehát az 'r' és az 'R' különböző karakterek!
Szerintem egyszerűbb lenne egy ciklussal megvizsgálnod a szöveget! -
_AnTi_
tag
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!
), akkor királyságos lesz! Ezer hála, hogy felhívtad rá a figyelmet! 
! Ezt én sem tudtam... Ezúton kérdezném én is az okosokat, hogy a fentebb említett copy-n kívül mit lehet még tenni?
!Új hozzászólás Aktív témák
Hirdetés
- Ingatlanos topic!
- AMD vs. INTEL vs. NVIDIA
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- sziku69: Fűzzük össze a szavakat :)
- Bambu Lab 3D nyomtatók
- sziku69: Szólánc.
- Vicces képek
- Autós topik
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Autós topik látogatók beszélgetős, offolós topikja
- További aktív témák...
- Apple Iphone 13 128gb csillagfény színű OLCSÓN . Csere/beszámítás
- OnePlus Pad 2 + OnePlus Pad 2 billentyűzet + Extrák
- AKCIÓ!!! GAMER PC: Új i5-14400F +RTX 4060/5060/4070/5070 +Új 16-64GB DDR4! GAR/SZÁMLA! 50 FÉLE HÁZ!
- HP EliteBook 855 G8, 15,6" FHD, Ryzen5 PRO 5650U CPU, 16GB DDR4, 256GB SSD, WIN 11, ( olvasd végig )
- Dell Precision 5520, 15,6" 4K/UHD Touch, I7-7820HQ CPU, 32GB DDR4, 512GB SSD, M1200 4GB VGA, WIN 11,
- Lenovo ThinkCentre M720q/ Dell OptiPlex 3060- 3070/ Hp EliteDesk 800 mini, micro PC-Számla/garancia
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Csere-Beszámítás! Ryzen 9 9950X3D Processzor! 16Mag-32Szál!
- Telefon felvásárlás!! Samsung Galaxy A50/Samsung Galaxy A51/Samsung Galaxy A52/Samsung Galaxy A53
- Csere-Beszámítás! Asztali számítógép játékra! I5 14400F / RX 6900 XT 16GB / 32GB DDR5 / 1TB SSD
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged