Hirdetés
- Luck Dragon: Asszociációs játék. :)
- gban: Ingyen kellene, de tegnapra
- Magga: PLEX: multimédia az egész lakásban
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Real Racing 3 - Freemium csoda
- sziku69: Fűzzük össze a szavakat :)
- vrob: Az utolsó DOS játékok 1996 - 1997-ben, egy korszak lezárul
- Bestx: Budget DIY eGPU USB4/Thunderbolt csatlakozással – egy mining VGA új élete.
- sziku69: Szólánc.
- Random25: Windows 11 telepítés Pendriveról
Új hozzászólás Aktív témák
-
Divi
aktív tag
Én nem tudok róla, hogy lehetne, de szerintem nincs is rá túzott szükség.
Én általában a showmessage-et csak kódírás ídeje alatt használom bizonyos változók értékeinek a kiírására. Hiszen nem olyan szép jószág az
Ha a júzerrel szeretnél közölni valamit akkor szerintem jobban jársz a MessageDlg() -vel.
Sokkal széleskörűbben paraméterezhető, sokkal gusztusosabb, és fügvény lévén annak a gomnak a kódjával tér vissza amit a júzer megnyomott. (Ha csak 1 gombot teszel ki akkor meg tök8).
Remélem segítettem. -
#748
killerjohn
addikt
Imike_80
#747
killerjohn
addikt
válasz
Imike_80
#747
üzenetére
kiszámolja a lenyomáskor eltárolt koordináták és a felengedéskor átadott koordináták távolságát (pitagorasz tétel a2+b2=c2 [2=négyzet])
utólag belegondolva működnie kell, de tényleg nem garantálom. TRY IT !
ez sor :
Ellipse(Circle_X-Radius,CircleY-Radius,CircleX+Radius,CircleY+Radius);
javítva :
Ellipse(Circle_X-Radius,Circle_Y-Radius,Circle_X+Radius,Circle_Y+Radius);
(kihagytam az aláhúzásokat a változónevekből...)
[Szerkesztve] -
#747
Imike_80
aktív tag
killerjohn
#737
Imike_80
aktív tag
válasz
killerjohn
#737
üzenetére
Na ez lesz a jó megoldás..
Tehát: 2 koordináta-változó ugye, egérlenyomásra rajzol, stb.
Ez a sor mi is? : Radius := sqrt( sqr(Abs(X-Circle_X))+sqr(Abs(Y-Circle_Y)) );
Köszi mindenesetre! -
#745
Imike_80
aktív tag
Drótszamár
#734
Imike_80
aktív tag
válasz
Drótszamár
#734
üzenetére
Köszi szépen. Nos, ilyen alakzatok még sosem rajzoltam. Csak ennyi. Meg: bármit írok, vmi nem müxik rajta... ez a gáz.
-
Diskcopy
tag
Hello, Problémám lenne a TlabeledEdit-el. Tegyük fel, hogy van 10 darabom belőle, és mindegyiknek nézem az OnClick metódusát, meg a editbox előtti szövegnek(EditLabel) is az OnClickjét. Namármost. Ehhez a 10 darabhoz, csak egy ilyet akarok megírni (legfeljebb 2-t, egyet a edit clicknek és egyet a szöveg clicknek)), és a többinek metódusként az object inspektorban az onclick eseményhez beállítani ezt az 1 darabot. Hogy mit csináljon: Amelyikre rákattintottak, legyen Disabled. Így leegyszerűsítve. Tehát ami kéne nekem, hogy milyen (Sender as micsoda).parent as akármi vagy hasonló módon lehetne ezt megoldani. Próbálkoztam, de mindíg invalid class typecastal kiszáll
Előre is köszönöm!
[Szerkesztve] -
Divi
aktív tag
Üdvözlök mindenkit!
Villámkérdés!
Le lehet valamivel ellenőrizni, hogy az adott változóba, már lett CREATE-elve egy ojjektum? (Valamilyen BOOLEANnel visszatérő függvénnyel vagy hasonlóval)
Vagy try except kell neki?
function obj_cr(obj:Tcomponent): Boolean;
Var l: Boolean
Begin
l:=False;
try
obj.tag:=obj.tag;
except l:=True;
End;
obj_cr:=NOT(l);
End;
Valami ilyen dolog működne?
[Szerkesztve] -
#738
killerjohn
addikt
killerjohn
#737
killerjohn
addikt
válasz
killerjohn
#737
üzenetére
de hasonló a megoldás. most nincs időm írni, de ebből már nem nehéz kitatlálni az alapjait............
-
#737
killerjohn
addikt
Imike_80
#732
killerjohn
addikt
válasz
Imike_80
#732
üzenetére
Var Circle_X,Circle_Y : Integer;
Procedure TForm1.Image1MouseDown(Sender: TObject.......);
Begin
Circle_X := X;
Circle_Y := Y;
End;
Procedure TForm1.Image1MouseUp(Sender: TObject....);
Var Radius : Integer;
Begin
Radius := sqrt( sqr(Abs(X-Circle_X))+sqr(Abs(Y-Circle_Y)) );
With Image1.Cavas do
Begin
Pen.Style := psSolid;
Brush.Style := psSolid;
Pen.Color := clBlack;
Brush.Color := clYellow;
Ellipse(Circle_X-Radius,CircleY-Radius,CircleX+Radius,CircleY+Radius);
End;
End;
szerintem...
de valószínűleg (tuti) van benne 1-2 hiba, mert fejből írtam, ide az új hozzászólás ablakba...
-
#731
Ameda
tag
Drótszamár
#730
Ameda
tag
válasz
Drótszamár
#730
üzenetére
Linkek, de szerintem te is találkoztál már velük:
Delphi Superpage: Bővebben: link
Torry: Bővebben: link
[Szerkesztve] -
#730
Drótszamár
őstag
Drótszamár
őstag
Miért így post-ol a Delphi 6.0 NMHTTP komponense?
username%3D_felhasználó_%26password%3D_jelszó_
És miért nem így?
username=_felhasználó_&password=_jelszó_
Így soha a büdös életbe nem fogok bejelentkezni sehova
Bezzeg a put rendesen küldi
Tud valaki olyan komponenst ami rendesen post-ol? -
#729
Metalwarrior
tag
Metalwarrior
tag
Nem azon van a hangsúly, hogy tud-e jpg-t csinálni. Az csak egy példa volt. A lényeg: egy nél így írom oda a kiterjesztést
SaveToFile(savedialog1.FileName+'.bmp');
De ha több közül választok (pl.: jpg, gif stb.), akkor ez már nem használ. Ja és mégegyszer, nem az kérdeztem, hogy lehet-e jpg-t, hanem, hogy több kiterjesztés közül hogy tudom a megfelelőt kiválasztani. -
#728
yksz
aktív tag
killerjohn
#727
yksz
aktív tag
válasz
killerjohn
#727
üzenetére
a Delphi MINDENT tud
Ez igaz, csak tudni kell, hogy kell osszehozni az egészet. Ez a nehezebbik része, mert vannak olyan dolgok, amit tuti tud a delphi és minden más programozó program kezdve a pascaltól a JAVA-n keresztul a C++-ig, de mi emberek még nem tudjuk megcsinálni
Pl.: A tokéletes mesterséges intelligencia, a teljesen élethu kép (valósághoz hasonlítva nincs kulonbség) megjelenítése és még lehetne sorolni egy két dolgot -
#727
killerjohn
addikt
ollie
#726
-
#726
ollie
MODERÁTOR
killerjohn
#725
válasz
killerjohn
#725
üzenetére
Heh, tud jpeg-et is? Még pár év és a végén még a fenekemet is kitörli...
-
#725
killerjohn
addikt
Metalwarrior
#723
killerjohn
addikt
válasz
Metalwarrior
#723
üzenetére
Uses JPEG;
Image1.Picture.RegisterFileFormat() metódus. nézd meg a paraméterlistáját. -
#724
ollie
MODERÁTOR
Metalwarrior
#723
válasz
Metalwarrior
#723
üzenetére
Nincs a Delphiben jpg meg gif converter, szóval azt külön kell beszerezned, és implementálnod a programodba. Furcsa is lenne, 1000 számra jelennének meg a képkonvertáló programok.
-
#723
Metalwarrior
tag
Metalwarrior
tag
Köszi!
Közben sikerült rájönni. De ha több a választék pl. bmp, jpg, gif akkor valahogy másképp kell megoldani. Azt hogy kell? -
#722
Ameda
tag
Metalwarrior
#720
Ameda
tag
válasz
Metalwarrior
#720
üzenetére
Image1.SaveToFile(Savedialog1.Filename+'.bmp');
-
#720
Metalwarrior
tag
Metalwarrior
tag
Helló!
El akarok menteni egy képet Savedialoggal de a .bmp kiterjesztést nem írja utána. Hogy lehet ezt megcsinálni? -
Aaalbi
tag
Sziasztok
Egy kis segítség kellene nekem.
Szűrnöm kellene egy táblában, és az alapján törölni az összetartozókat, de nem
akar sikerülni. Megáll a progi.
datamodule1.ItemsOut.Filter:='MUNKASZAM='+QuotedStr(FieldByName('MUNKASZAM').asstring)+'ESZKOZ_KOD='+QuotedStr(FieldByName('ESZKOZ_KOD').asstring);
datamodule1.ItemsOut.Filtered:=True;
while not datamodule1.ItemsOut.Eof do
begin
datamodule1.ItemsOut.Delete;
datamodule1.ItemsOut.Next;
end;
datamodule1.ItemsOut.Filtered:=False;
a legfelső sorral van valami baja.
Ha ötlet, akkor várom.
És köszönöm. -
yksz
aktív tag
Az 1.1 verzió(olyan jól esik ezt mondani
)->Bővebben: link
a forrás->Bővebben: link
[Szerkesztve]
[Szerkesztve] -
#716
yksz
aktív tag
killerjohn
#711
yksz
aktív tag
válasz
killerjohn
#711
üzenetére
Ok felteszem, de még csak osszeadni tud Kicsit extrém megoldással
-
beeboy
addikt
én is benevezek a buliba a legkisebb számológéppel...
![;]](//cdn.rios.hu/dl/s/v1.gif)
(amúgy már volt ilyen totyik is)
szóval, csak a tálcán foglal helyet, súgó: F1, minden ott van
Bővebben: link -
#712
Drótszamár
őstag
Drótszamár
#706
Drótszamár
őstag
válasz
Drótszamár
#706
üzenetére
Senkinek semmi ötlet?
-
#711
killerjohn
addikt
yksz
#708
killerjohn
addikt
feldobhatnád valahová a forrást. kíváncsi vagyok. régen próbálkoztam -egy prímszámkeresőhöz- azzal, hogy egy string-ben tetszőleges nagy számot tárolok, és azzal műveletet elvégezni (pl: két string összeadása, kivonása, szorzása, osztása, egy string négyzetgyökének a megállapítása, stb.), de csak hobbi volt, és nem volt rá időm. Viszont aa van valami kész megoldásod, akkor megnézném....... Mester........
-
#710
killerjohn
addikt
Drótszamár
#706
killerjohn
addikt
válasz
Drótszamár
#706
üzenetére
ebben nem t'ok segíteni. sorry
-
#708
yksz
aktív tag
killerjohn
#705
yksz
aktív tag
válasz
killerjohn
#705
üzenetére
Ja az, csak nincs korlátozás (Integer, real stb...) akármilyen nagy számot beírhatsz.
-
#706
Drótszamár
őstag
Drótszamár
őstag
Sziasztok! Lenne egy lérdésem:
Hogyan lehet egy delphi programmal bejelentkezni egy szerverre?
Le akarok tölteni onnan néhány oldalt, de csak akkor engedi, ha beléptem.
Ha elpostolom neki a kérést akkor visszaírja a html-be, hogy jelentkezzek be.
Ha böngészővel bejelnetkezek akkor minden ok.
Gondolom elősször a programból kéne bejelentkezni, akkor kapok egy cookie-t, amit minden kérésnél újra el kell küldeni?
Hogyan működik ez a cookie dolog elméletben? -
#704
killerjohn
addikt
Divi
#696
killerjohn
addikt
Elég egyszerű, csak csinálni kell hozzá egy új komponenst, melyet így kell megcsinálni (pl TButton esetében, de másnál is müxik...)
Bocsi, de sietve dobtam össze... nem biztos, hogy fullosan OK.
---------------------------
Uses SysUtils, Classes, Controls, Messages, Graphics, ExtCtrls, Windows, Forms;
Type
TMyButton = class(TButton)
private
FOnMouseEnter : TNotifyEvent;
FOnMouseLeave : TNotifyEvent;
protected
Procedure msgMouseEnter(Var Msg: TMessage); message CM_MouseEnter;
Procedure msgMouseLeave(Var Msg: TMessage); message CM_MouseLeave;
public
Constructor Create(AOwner: TComponent); override;
published
Property OnMouseEnter : TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
Property OnMouseLeave : TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
End;
constructor TMyButton.Create(AOwner: TComponent);
begin
inherited;
FOnMouseEnter := nil;
FOnMouseLeave := nil;
end;
procedure TMyButton.msgMouseEnter(var Msg: TMessage);
begin
If csDesigning in Self.ComponentState Then EXIT;
If Assigned(FOnMouseEnter) Then FOnMouseEnter(Self);
End;
procedure TMyButton.msgMouseLeave(var Msg: TMessage);
begin
If csDesigning in Self.ComponentState Then EXIT;
If Assigned(FOnMouseLeave) Then FOnMouseLeave(Self);
end;
Előre is köszönöm! 
Pl.: A tokéletes mesterséges intelligencia, a teljesen élethu kép (valósághoz hasonlítva nincs kulonbség) megjelenítése és még lehetne sorolni egy két dolgot
Majd hétvégén még nekiulok, mert már teljesen belegabajottam
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
- Mibe tegyem a megtakarításaimat?
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- eGPU tapasztalatok
- Politika
- Milyen légkondit a lakásba?
- Apple iPhone 16 Pro - rutinvizsga
- Parkside szerszám kibeszélő
- Luck Dragon: Asszociációs játék. :)
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- TCL LCD és LED TV-k
- További aktív témák...
- Csere-Beszámítás! HP Omen Gamer laptop! I7 7700HQ / GTX 1050Ti / 32GB DDR4 / 250SSD+1TB HDD
- ThinkPad X13 Gen4 13.3" FHD+ IPS i5-1335U 16GB 256GB NVMe ujjlolv gar
- Slot1 Processzor
- HP ProBook 430 G8, 13,3" FHD IPS, I5-1135GU CPU, 16GB DDR4, 256GB SSD, WIN 11, 27% áfás számla, 1 év
- HP ProBook 430 G6, 13,3" FHD IPS, I5-8265U CPU, 8GB DDR4, 256GB SSD, WIN 11, 27% áfás számla, 1 év g
- Azonnali készpénzes Apple Macbook Air felvásárlás személyesen / csomagküldéssel korrekt áron
- PS5 konzolod megvásároljuk: Budapest, Kecskemét, Szeged, Debrecen vagy akár GLS futárt küldünk!
- AKCIÓ! HP ZBook Firefly 14 G9 üzleti notebook- i7 1255U 32GB RAM 512GB SSD nVidia T550 4GB Win11
- DELL PowerEdge R730xd 12LFF+2SFF rack szerver - 2xE5-2680v3,64GB RAM,4x1GbE,H730 RAID v ZFS
- Bomba ár! Dell Latitude 7280 - i5-7GEN I 8GB I 256SSD I 12,5" FHD I Cam I W11 I Garancia!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest