Hirdetés
- Óriási ugrás: teszten az ASUS Zenbook A16 és a Snapdragon X2
- Bőven 50 gramm alá fogyott a Keychron kétféle borítással kérhető, "karmos" egere
- Ön vezető vagy önvezető? Az Uber az utóbbi mellett voksol
- QHD OLED és extrém frissítés: bemutatkozott a Sony INZONE M10S II
- Bekebelezi az Amazon az Apple műholdas partnerét
- Milyen billentyűzetet vegyek?
- Óriási ugrás: teszten az ASUS Zenbook A16 és a Snapdragon X2
- Szünetmentes tápegységek (UPS)
- 5.1, 7.1 és gamer fejhallgatók
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Kötelező frissítésnek számít a Microsoft legújabb csomagja a Windows 11-hez
- VR topik
- AMD vs. INTEL vs. NVIDIA
- Kormányok / autós szimulátorok topikja
- Milyen TV-t vegyek?
Aktív témák
-
WN31RD
addikt
válasz
Drótszamár
#16
üzenetére
Ennek örömére zártam ezt a topicot.
-
Drótszamár
őstag
Bővebben: link

[Szerkesztve] -
Drótszamár
őstag
válasz
Attila1981
#14
üzenetére
Project--> Options--> Form fül --> Autocreate Forms
Na amik itt vannak felsorolva, azok automatikus létrejönnek, és ''elbújnak''.
Szedd ki innen azt ami nem kell.
Egyébként névjegyform.showmodal az nem segítene? -
Attila1981
csendes tag
A program amin dolgozom tartalmaz egy Névjegy ablakot.
Na most ez a Névjegyablak mindig elindul amikor elindítom a programomat, és a háttérbe lapul valahol. Ha viszont a programomban a névjegyet szeretném előhozni akkor előjön a Névjegyablak de nem aktív az egyetlen gomb rajta, igy be se tudom csukni a Névjegyablakot. Csak ugy tudom becsukni ha becsukom a formomat amiről elindította.Ez mind azért van mert a háttérbe van valahol induláskor. Nem adtam meg neki hogy elindulkon.
Akkor mégis hol van beíródva, mert már átrágtam magam az egész programon és nemtalálom. -
btotyi
tag
Csak látszólag nem működik mert beolvassa az előző számhoz tartozó entert is. A char típus pedig ordináris típus így nyugodtan használgatod a case-ben is.
Repeat
write('a:'); read(a);
write('b:'); read(b);
repeat
read(ch);
until ch <> #13;
write('ch:'); read(ch);
Case ch Of
'-' : e := a + b;
'+' : e := a - b;
End;
WriteLn(e);
Until e = 100; -
ReJim
őstag
Bővebben: link
elöbb keresni kellett volna... tök felesleges még egy delphis topik.. -
Drótszamár
őstag
Aha most már értem mihez kell ez.
Hát ilyen konzol alkalmazást még soha nem írtam, de valszeg nem is nagyon lessz rá szükségem.
Ha ilyen programokat akarsz írkálni, akkor ajánlom inkább a Turbo Pascalt.
Azon a nyelv szintaktikáját remekül meg lehet tanulni.
Ha mindenképpen Delphivel akarsz foglalkozni, akkor szerintem inkább a form-os dolgokkal kezdjél el foglalkozni. -
kiskekes
csendes tag
válasz
Drótszamár
#9
üzenetére
Egyszerűen csak az e értékét kellene kiírnia, és ha ch integer akkor simán működik a progi, viszont ha char (és ez lenne a cél) akkor a ch-t egyszerűen meg sem kérdezi. (amiket írtál, szövegdoboz... nem nagyon értem
, de sztem most nekem nincs arra szükségem) Mellesleg itt a progi:
Bővebben: link , ezen a 31-37 oldal. Eléggé kezdeti stádiumban vagyok.
Megpróbálok ezentúl a másikba írni
[Szerkesztve] -
Drótszamár
őstag
A Delphinek van edit komponense, azzal tudsz beolvasni. Sztem a read, meg a write nem működik. Mire írná ki az eredményt?
Tegyél a form-ra egy labelt, és label.caption:=''kiirandó szöveg''. Így tudsz kiiratni.
Esetleg egy szövegdobozba is tudsz.
Ha nem világos kérdezzél nyugodtan.
Ja és van egy másik többszáz HSZ-es Delphi topic. Nem jó ha 2 helyen vannak a dolgok. Inkább azt kéne használni. -
kiskekes
csendes tag
Bocs hogy amatőr kérdéssel jövök, de most kezdem tanulni a Delphit!
Szóval ebben a progiban miért nem hajlandó beolvasni a ch változót, ha az char típusú?? (1-et és 2-t szeretném +al illetve -al helyettesíteni)
uses
SysUtils;
var
a, b, e: real;
ch: integer;
begin
e:=0;
a:=0;
b:=0;
repeat
write('a:'); read(a);
write('b:'); read(b);
write('ch:'); read(ch);
case ch of
1 : e:=a+b;
2 : e:=a-b;
end;
write(e);
until e=100;
{ TODO -oUser -cConsole Main : Insert code here }
end.
[Szerkesztve] -
Diskcopy
tag
válasz
Attila1981
#5
üzenetére
így nem jó?
shellexecute(handle,nil,'mailto:email@cimed.hu',nil,nil,SW_SHOWnormal);
hoppsz.. a subject lemaradt... email @cimed.hu?Subject=Ez lesz a levél tárgya'
[Szerkesztve] -
Attila1981
csendes tag
Most viszont az Outlookkkal van gondom.
Azt szeretném megcsinálni hogy az email címemre kattintva bejöjjön az Outlook, és rögtön az email címem egy Új üzenet írásában.
Eddig ezzel próbálkoztam de ez csak megnyissa az outlookot.
uses ShellApi;
procedure ..........gombClick..;
begin
ShellExecute(handle,nil,' outlook.exe',nil,nil, SW_SHOWNORMAL);
end; -
Tele von Zsinór
őstag
Próbáld meg a megállítás eseményét lekezelni (ha van olyan, de asszem van), és egy form.bringtofront-ot meghívni.
-
Attila1981
csendes tag
Elöször is köszönöm a segítő választ. Szeretném megkérdezni, hogy mi a megoldás a következő példára. Egy Delphiben megírt programomban videóbejátszás is szerepel. Egy gomb megnyomására indul el. Az a problémám ha megállítom a videóbejátszást eltűnik a delphi videóbejátszó ablaka. Ilyenkor az összes megnyitott ablak mögé kerül. Azt szeretném megoldani, hogy ha megállítom a videóbejátszást, akkor ne tűnjön el.
-
Tele von Zsinór
őstag
Ha jól tévedek akkor te a TWebBrowser-t keresed, és a res:// protokollt.
-
Attila1981
csendes tag
Hello!
Segítségeteket kérem! Van egy HTML oldalam amit be szeretnék illeszteni egy Delphi alkalmazásba. Azt szeretném hogy egy gomb megnyomására a HTML oldal jöjjön elő.
Aktív témák
Hirdetés
- PS5 Slim Digital (CFI-2016) Karcmentes, 1 kontroller
- ASUS ROG Zephyrus G14 Ryzen 9 / RTX 4070 / 32GB / 1 TB SSD 2K 165Hz PRÉMIUM
- Dobozod ÚJ Lenovo LOQ i7 / RTX 4050 / 144Hz / GARANCIA 2027.03.
- Ultra Rampage Mobile Gamer Csomag: Lenovo Legion Duel 2 + egyedi kiegészítők! 512GB EU verziós!
- Asus TUF RX 6900 XT
- Dell Precision 3571 i7-12700H 16GB 512GB FHD RTX T600 4GB 1 év teljeskörű garancia
- 5G! Lenovo ThinkPad P14s Gen 4 Intel Core i7-1370P RTX A500 32GB 1000GB 1 év teljeskörű garancia
- NZXT KRAKEN Elite V2 240 RGB AIO Display White vízhűtő!
- 238 - Lenovo Legion Pro 7 (16IRX8) - Intel Core i9-13900HX, RTX 4070
- HP EliteOne 800 G6 All-in-One i5-10500 32GB 1000GB 24" Érintőkijelző!! 1 év garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

, de sztem most nekem nincs arra szükségem) Mellesleg itt a progi:

