Hirdetés
Új hozzászólás Aktív témák
-
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; -
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...
-
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
-
killerjohn
addikt
válasz Drótszamár #706 üzenetére
ebben nem t'ok segíteni. sorry
-
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........
-
Drótszamár
őstag
-
beeboy
addikt
én is benevezek a buliba a legkisebb számológéppel...
(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...
-
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
-
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
-
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. -
Aaalbi
tag
Köszönöm a sok segítséget.
Már megoldottam. -
Metalwarrior
tag
Helló!
El akarok menteni egy képet Savedialoggal de a .bmp kiterjesztést nem írja utána. Hogy lehet ezt megcsinálni? -
yksz
aktív tag
Hopp. Ebbe még tobb bug van Majd hétvégén még nekiulok, mert már teljesen belegabajottam
Fly away my precious knowledge fly far away
-
Ameda
tag
válasz Metalwarrior #720 üzenetére
Image1.SaveToFile(Savedialog1.Filename+'.bmp');
Please use LINUX!
-
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? -
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
-
killerjohn
addikt
válasz Metalwarrior #723 üzenetére
Uses JPEG;
Image1.Picture.RegisterFileFormat() metódus. nézd meg a paraméterlistáját. -
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
-
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álniPl.: 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
-
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. -
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...
-
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!
-
Imike_80
aktív tag
Sziasztok!
Kell/ene/ írnom egy programot Delphiben. Egérkezeléssel, menüvezérelten Kört, ellipszist, illetve egyenest kell rajzolni.
Nincs valakinek a tarsolyában ilyen?
Esetleg tud valaki segíteni benne?
Előre is köszi! -
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... -
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............
-
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á
-
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] -
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.
-
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! -
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] -
corm
senior tag
Üdv mindenkik!
Olyan kérdésem lenne, hogy a ShowMessage eljárásnak lehet-e megadni azt, hogy mi legyen az ablak fejlécében, mert ugye alapból a unit neve van, de az nem szép úgyY N W A
-
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á
Új hozzászólás Aktív témák
- iPhone 15 Pro 128GB FEHÉR TITÁN MAKULÁTLAN
- iPhone 14 128GB Lila Független Mint Az Új/1-3 hónap gar./Akku 92%/p3826
- minigép/ i5 6500T 35W/ Dell 3050 micro/ garancia/ ingyen foxpost
- Új Modell Apple Watch Ultra 2 49mm Black/2025.09.21 Apple Gar./p3825/
- Cisco SG200-50 smart switch - 48+2 portos Gigabites
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: HC Pointer Kft.
Város: Pécs