- Windows 11
- Bocsánatot kért az Apple, mert nagyon mellélőtt a legutóbbi reklámjával
- Windows Insider Program
- Google Chrome
- AutoCAD
- Már nem hisz a nagy európai EV-forradalomban a Ford
- Visszavonta az Intel és a Qualcomm Huawei-hez kiadott exportlicencét az USA
- Milyen program, ami...?
- ASUS routerek
- Milyen routert?
Aktív témák
-
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ő. -
Tele von Zsinór
őstag
Ha jól tévedek akkor te a TWebBrowser-t keresed, és a res:// protokollt.
-
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
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
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; -
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] -
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] -
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.( 2b || !2b ) az itt a kérdés...
-
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
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.( 2b || !2b ) az itt a kérdés...
-
ReJim
őstag
Bővebben: link
elöbb keresni kellett volna... tök felesleges még egy delphis topik..</end.?>
-
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; -
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. -
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?( 2b || !2b ) az itt a kérdés...
-
Drótszamár
őstag
Bővebben: link
[Szerkesztve]( 2b || !2b ) az itt a kérdés...
-
WN31RD
addikt
válasz Drótszamár #16 üzenetére
Ennek örömére zártam ezt a topicot.
''... we as consumers want our content free (as in Freedom) and if we don't get it, we'll take our content free (as in beer).''
Aktív témák
- EA Sports WRC '23
- Netfone
- Opel topik
- 8 kHz-es, jobbkezes PnP egér közeledik a Cherry Xtrfy logójával
- Samsung Galaxy S21 Ultra - vákuumcsomagolás
- Hosszabb videón az Arena Breakout: Infinite (PC)
- Windows 11
- C&C: Generals
- Ukrajnai háború
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- További aktív témák...
- Asus ROG Strix G17 (G712LWS) - 17.3"
- Szép! HP EliteBook 840 G6 Fémházas Laptop 14" -70% i5-8365U 4Mag 16GB 512GB SSD FHD IPS + Táska!
- Szép, és jó! HP EliteBook 840 G5 Laptop 14" -70% i5-8350U 4Mag 16Gb 512GB SSD FHD IPS + Táska!
- Zotac gaming amp airo Geforce RTX 4070ti 2026 végèig garanciás
- 9gen PC,, i5 9600K , 1660 Ti , 16GB 3000MHz , 512GBGB m.2 , 1TB HDD
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen