Aktív témák
-
#17
WN31RD
addikt
Drótszamár
#16
WN31RD
addikt
válasz
Drótszamár
#16
üzenetére
Ennek örömére zártam ezt a topicot.
-
#16
Drótszamár
őstag
Drótszamár
őstag
Bővebben: link
[Szerkesztve] -
#15
Drótszamár
őstag
Attila1981
#14
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? -
#14
Attila1981
csendes tag
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.. -
#11
Drótszamár
őstag
kiskekes
#10
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. -
#10
kiskekes
csendes tag
Drótszamár
#9
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] -
#9
Drótszamár
őstag
kiskekes
#8
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] -
#6
Diskcopy
tag
Attila1981
#5
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] -
#5
Attila1981
csendes tag
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; -
#4
Tele von Zsinór
őstag
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.
-
#3
Attila1981
csendes tag
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.
-
#2
Tele von Zsinór
őstag
Tele von Zsinór
őstag
Ha jól tévedek akkor te a TWebBrowser-t keresed, és a res:// protokollt.
-
#1
Attila1981
csendes tag
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ő.
, de sztem most nekem nincs arra szükségem) Mellesleg itt a progi:
Aktív témák
- AOC Q27G4XF QHD/180HZ/0,5MS/27
- ÚJ Cascade Bora 2.5kW és 3.4kW Klíma - Ne várja meg a 2026-os áremelkedést!
- ÚJ TCL Elite 2.6kW és 3.5kW Klíma - Ne várja meg a 2026-os áremelkedést!
- Xiaomi Redmi Note 12 128GB 4+4 8GB ram kártyafüggetlen +dual simes, újszerű állapotban, AKCIÓS ÁRON!
- Latitude 9420 27% 14" FHD+ IPS i7-1185G7 16GB 512GB NVMe IR kam gar
- BESZÁMÍTÁS! ASUS ROG STRIX Z390-H GAMING alaplap garanciával hibátlan működéssel
- Készpénzes / Utalásos Videokártya és Hardver felvásárlás! Személyesen vagy Postával!
- HIBÁTLAN iPhone 12 Pro 512GB Silver -1 ÉV GARANCIA - Kártyafüggetlen, MS3410, 94% Akkumulátor
- HP EliteBook 1050 G1 i7-8750H 32GB RAM 1000GB Nvidia GTX1050 4GB SSD FHD IPS 120Hz 1 év garancia
- HIBÁTLAN iPhone 15 Pro Max 256GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3495, 91% Akkumulátor
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest