- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- weiss: Logi MX Master 3S FW NEM frissítés
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- btz: Internet fejlesztés országosan!
- bambano: Bambanő háza tája
- eBay-es kütyük kis pénzért
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
Ú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
- Thermaltake Toughpower SFX Platinum 1000W
- Gigabyte B650M Aorus Elite AX ICE + 3 év garancia
- Sony DSC-HX300 digitális fényképező + 3 extra akksi + 8GB memóriakártya + Hama Star 700 állvány
- BESZÁMÍTÁS! LENOVO LOQ 15APH8 15 notebook - R7 7840HS 16GB DDR5 1TB SSD RTX 4060 6GB WIN11
- BESZÁMÍTÁS! ASUS TUF A15 FA507NV 15 notebook - R7 7735HS 32GB DDR5 512GB SSD 1TB SSD RTX 4060 6GB W
- BESZÁMÍTÁS! Logitech G920 Driving Force Racing Wheel + Shifter garanciával hibátlan működéssel
- DELL Precision 7540 i7-9850H Quadro T2000 16GB 512GB 1 év garancia
- AKCIÓ! Apple Mac Studio M2 ULTRA 2023 64GB 1TB SSD számítógép garanciával, hibátlan működéssel
- BESZÁMÍTÁS! Asus B550M R9 5900X 32GB DDR4 1TB SSD RTX 4070 SUPER 12GB Be Quiet! Silent Base 601 850W
- Készpénzes / Utalásos Videokártya és Hardver felvásárlás! Személyesen vagy Postával!
Állásajánlatok
Cég: FOTC
Város: Budapest