Hirdetés
- AMD Navi Radeon™ RX 7xxx sorozat
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Apple notebookok
- Everest / AIDA64 topik
- AMD APU (AM4 és AM5) topik
- Azonnali alaplapos kérdések órája
- Házimozi és Hifi kábelezés!
- Soundbar, soundplate, hangprojektor
- TCL LCD és LED TV-k
- Nem indul és mi a baja a gépemnek topik
Ú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.lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
#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]lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
#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...
-
#736
Drótszamár
őstag
Aaalbi
#735
-
#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]Please use LINUX!
-
#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?( 2b || !2b ) az itt a kérdés...
-
#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 dolgotFly away my precious knowledge fly far away
-
#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...
Pénztárca bemutatók: https://www.youtube.com/playlist?list=PLYQxd5Rbby46cPtVVMQodEGZuxZm7csIo
-
#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.
Pénztárca bemutatók: https://www.youtube.com/playlist?list=PLYQxd5Rbby46cPtVVMQodEGZuxZm7csIo
-
#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');
Please use LINUX!
-
#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]Fly away my precious knowledge fly far away
-
#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
Fly away my precious knowledge fly far away
-
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: linkNem vagyok intelligens. Én AMDligens vagyok...
-
#712
Drótszamár
őstag
Drótszamár
#706
Drótszamár
őstag
-
#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.
Fly away my precious knowledge fly far away
-
#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?( 2b || !2b ) az itt a kérdés...
-
#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
Hirdetés
- EK-Quantum Kinetic FLT 360 D5 PWM D-RGB - Plexi tökéletes állapotban eladó
- Logitech g pro x2 lightspeed wireless headset
- iPhone 13 128gb fehér, gyári független, hibátlan
- Eladó Apple iPhone 13 Pro 128 GB SILVER PATIKA ÁLLAPOT
- Tápegység Moduláris Kábel Tápkábel Adapter Hosszabbító Csatlakozó Elosztó - Egyedi is
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest