- AMD Ryzen 9 / 7 / 5 / 3 3***(X) "Zen 2" (AM4)
- Milyen billentyűzetet vegyek?
- Vezetékes FÜLhallgatók
- Léghűtés topik
- Érkezik Magyarországa az LG szuper dizájnos hordozható projektora
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Így építsd a billentyűzeted!
- Házimozi belépő szinten
- Milyen egeret válasszak?
- Hobby elektronika
Hirdetés
-
Letartóztatták a bitcoin-Jézust
it Amerikai adókerülés vádjával, Spanyolországban tartóztatták le a bitcoin-Jézusként ismert Roger Vert.
-
Mindent megtudtunk az új Nokia 3210-ről
ma Részletes képek, specifikációk és euróban megadott ár is van a legendás modell újraélesztett verziójához.
-
Az Apple megszerezné a klubvilágbajnokság közvetítési jogait
ph A vállalat ezért irgalmatlan pénzt fizetne a FIFA-nak, és ezzel rajzolná át az online streaming platformok háborújában a frontvonalakat.
Új hozzászólás Aktív témák
-
dany27
őstag
Hali!
Nem régen kezdtem Delphi-vel ismerkedni. Egy olyan kérdésem lenne hogy egy több form-ból álló programocskát szeretnék készíteni. De egy úgy hogy ha a felhasználó rányom egy gombra akkor ne új ablakot dobjon fel hanem töltse be abba az ablakba az adott formot. Mindegyiket elkészíteném előre, megírnám hozzá az összes eseményt csak cserélgetésre kéne valami tipp.
Előre is köszi! -
dany27
őstag
válasz Gyuri16 #1819 üzenetére
Idén kezdtük suliban Delphit és van egy project amit le kell adni e hónap végéig és minnél tökéletesebben szeretném kivitelezni, mert 100%os munkát nem tudott mutatni a tanár mert ő szerinte eddig nem adott be senki olyant. (Bár nem értem attól mit vár aki 2 hónapja tanulja...). Am én már tanultam más 4GL nyelvet illetve Pascalt is így szeretnék minnél közelebb lenni a 100%-hoz!
Am még1 olyan kérdés hogy szövegbuborékot(azt hiszem hogy így hívják) tudok benn valahogy kreálni?
Előre is kössz!
[ Szerkesztve ]
-
dany27
őstag
Köszi! Am most nézem hogy Delphiben nincs onmouseover event??!!
Mousemove jó valamilyen szempontból csak ugye az minden egérmozdításra lefut, illetve megtudom oldani hogy ne fusson le csak egyszer de az igen orosz teknika...(rakok egy elágazást ami vizsgál egy logikai voltozót amit az első lefutás után hamissá teszek...)Kössz a segítséget!
-
dany27
őstag
válasz Gyuri16 #1827 üzenetére
Delphi 7 Enterprise. Am nem onenter-re gondolsz? Mert onmouseenter nincs az eventek közt! Onenter meg másként funkcionál.. Az nem azt figyeli hogy felette van-e az egér hanem az elem tab-ját. Lehet én vagyok szerencsétlen de nekem ez jött le abból az eventből hogy azt csinálja...
[ Szerkesztve ]
-
dany27
őstag
Hi!
Úgy sikerült megoldanom hogy elkapom a CM_MOUSEENTER illetve LEAVE üzenetet de valamiért dob egy hatalmas hibát mikor ráhúzom az egerem a gombra.. Csak a képbuherálással van baja, msgboxot simán feldobatom vele.
Hoztam létre egy külön típust a gombnak.. Nah de itt a kód beszéljen inkább az!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type TButton = class(stdctrls.TButton)
img_pre: TImage;
procedure WhenMouseEnter(var Message:TMessage);message CM_MOUSEENTER;
procedure WhenMouseLeave(var Message:TMessage);message CM_MOUSELEAVE;
end;
type
Tfrm_main = class(TForm)
Button1: TButton;
img_pre: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_main: Tfrm_main;
implementation
{$R *.dfm}
procedure Tfrm_main.Button1Click(Sender: TObject);
begin
if messagebox(frm_main.Handle,'Valóban kiszeretnél lépni a programból?','Kilépés megerősítése',MB_YESNO)= IDYES then
application.terminate
end;
procedure Tbutton.WhenMouseEnter(var Message:TMessage);
begin
img_pre.Picture.LoadFromFile('img/egyik.jpg');
end;
procedure Tbutton.WhenMouseLeave(var Message:TMessage);
begin
img_pre.Picture.LoadFromFile('img/masik.jpg');
end;
end. -
dany27
őstag
Bocsi megint lenne egy kérdésem. Googleztam rá de semmi eredménye nem lett neki.
Nah szóval az lenne a kérdésem hogy ugye Pascalban ha azt szerettem volna elérni hogy csak oda illő karakter vigyen be a user akkor readkeyel beolvastam a leütött bill-t majd ha nekem megfelelt akkor kiírtam a képernyőre meg hozzá adtam a stringhez.
Ezt hogy tudom megoldani Delphiben. Mert itt readkeyel ugye nem megy....
Konkrétan egy TexBox-hoz szeretném azt megcsinálni hogy csak 0-9 közötti számokat illetve , lehessen bevinni.
Illetve felső indexbe lehet valahogy írni?Köszi megint!
[ Szerkesztve ]
-
dany27
őstag
Köszi! Jó alapodat kicsit kibővítve sikerült azt is megoldanom hogy tizedes vesszőt csak egyszer lehessen bevinni és csakis akkor hamár van előtte valamilyen szám. Valamint ha csak 1db nulla van a box-ban akkor csak tizedes vesző jöhet, utánna meg akármennyi 0-9 lévő szám kivétel tizedes vessző!
Am, de még egyféle képpen átlehet "verni" jobb klikk beillesztés, így akármit bevisz. Nah most vagy a jobb klikket kéne letiltanom vagy nincs valami msg(mint pl.: a CM_MOUSEENTER) amit küld a beillesztéskor? És azt elkapva esetleg lehetne nullázni amit küldene. Vagy csak simán jobb klikkre is bal klikként viselkedne....
Meg még1 olyan hogy ha írok egy saját függvényt, akkor hogyan tudom azt elérni hogy "lássa" a formom elemeit? mert ha csak simán csinálok egy procedurát akkor azt fogja kidobni h nem is meri mondjuk a tb_x.text nevű dolgot. Gondolom azt a típust kéne valahogy átadni neki amiben deklarálva van a textbox.. Csak nem tudom hogy hogyan kell. 4GL nyelvel eddig nem igen foglalkoztam!
Köszi!
-
dany27
őstag
válasz Gyuri16 #1836 üzenetére
nem formon kívülről babrálom!
Hanem van 3 olyan textbom amit egyformán kell elenőríznem a keypress eventnél így gondoltam hogy írok rá egy eljárást amit meghívok mind3 keypressnél és akkor így nem kell feleslegesen 3* ugyan azt leírnom.Csak valamiért azt mondja pl a tb_x.text-re hogy ez nem deklarált változó.... Pedig ugyan azon a formon belül van!
Am vissza térve az MSG-re. Az a gond hogy a beillesztésnek nem tudom milyen MSG-je van!
[ Szerkesztve ]
-
dany27
őstag
sziasztok!
Egy két kérdésem lenne megint delphivel kapcsolatban.
Az első az lenne hogy ha mondjuk adott egy TextBox és abban a júzer kijelöli a benne lévő tartalmat azt hogy tudnám vissz a kapni valahogy?
A második az hogy globálisan hozzá tudok rendelni a textboxhoz disabled tulajdonságához egy színt?? mert én azt szeretném ha akkor szürke lenne ha inaktív de nem szeretném mind a "kétszáz millió" helyen átírni!
Illetve Delphiben nem találtam meg azt az opciót ahol tudom állítani azt hogy a textbox tartalma hova legyen igazítva... Vagy azt csak kódból lehet??Előre is köszi!
-
dany27
őstag
mert a felhasználónak kellene belevinni adatokat némely esetekben de mikor nem kell neki akkor úgy gondoltam h nem retjem el mert akkor ott lesz egy "luk" vagy pedig arébb kellene pakolnom olyankor mindent. Ezért gondoltam a szürkítésre.....
VB.NET-ben hozzászoktam hogy alapba szürkíti az alapszínt ha tiltott...
Itt nincs rá valami külön opció? -
dany27
őstag
hali
Egy olyan kérdésem lenne hogy a komponensek közt lévő böngészőnek a kapcsolat beállításait hogy lehet változtatni?
Ha az Internet Explorer kapcsolat beállításait változtatom akkor változik az övé is. Ezzel nem is lenne gond de valamiért amikor a 3ik proxyt betölti akkor utánna hiába jelzi azt nekem a progi h sikeresen cserélte az explorerben maradt a régi....
Előre is köszi!
Itt a kód:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Registry, WinInet, OleCtrls, SHDocVw, ExtCtrls;
type
TForm1 = class(TForm)
btn_start: TButton;
btn_stop: TButton;
btn_exit: TButton;
Label1: TLabel;
WebBrowser1: TWebBrowser;
Timer1: TTimer;
lbl_now: TLabel;
procedure btn_exitClick(Sender: TObject);
procedure btn_startClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure btn_stopClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
proxys:Tstrings;
temp:string;
i:byte;
implementation
{$R *.dfm}
procedure TForm1.btn_exitClick(Sender: TObject);
begin
application.Terminate
end;
Procedure EnableProxy(const Server: String);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.WriteBool('ProxyEnable',False);
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',False);
Reg.WriteString('ProxyServer',Server);
Reg.WriteBool('ProxyEnable',True);
Reg.CloseKey;
Reg.Free;
end;
Procedure DisableProxy;
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',False);
Reg.WriteBool('ProxyEnable',False);
Reg.CloseKey;
Reg.Free;
end;
procedure TForm1.btn_startClick(Sender: TObject);
begin
i:=0;
timer1.Enabled:=TRUE;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1;
proxys:=TStringList.Create;
proxys.LoadFromFile('D:\proxys.txt');
temp:=proxys.Strings[i];
EnableProxy('http='+temp);
lbl_now.Caption:='Jelenlegi proxy: '+temp;
end;
procedure TForm1.btn_stopClick(Sender: TObject);
begin
DisableProxy;
timer1.enabled:=FALSE;
end;
end. -
dany27
őstag
Sziasztok!
Egy olyan kérdésem lenne hogy néhány beállítást szeretnék eltárolni de nem tudom pontosan, vagyis nem tudom melyik lenne legmegfelelőbb nekem. Nos csak néhány egyszerű bellítást kellene elmentenem(pl.: nehézségi szint, feladatok száma stb..). A programfutása során szükségem van arra hogy rögötön hozzáférjek az éppen szükséges beállításhoz. Így gondoltam hogy típusos fileba letárolnám az egyes beállításokat és akkor egyszerűen hozzáférnék az egyes beálított értékekhez! (a sima txt file nem játszik mert macera belőle kiszedni a cuccokat!)
Szerintetek melyik lenne a legjobb??
Előre is köszi!
-
dany27
őstag
Hali!
Framekkel büvészkedek de akadt egy kis gondom ebben szeretnék egy kis segítséget kérni.
Szóval van egy formom amin az éppen aktuális framet teszem láthatóvá és a régit meg elrejtem. De ez valahogy nekem nem akar összejönni. Illetve menni megy de mikor egy framet kétszer megjelenítettem nem akarja elrejteni hanem dob egy szép kis hibát:
"" is not valid integer value!
Így nézz ki egy új frame megjelnítése, régi elrejtése(megnézi melyik az épp látható azt elrejti majd a végén ami kell az meg megjeleníti):
procedure TForm1.menu_gykivonClick(Sender: TObject);
begin
if frame_osszgyak.Visible=TRUE then
begin
frame_osszgyak.btn_feladClick(Sender);
frame_osszgyak.Visible:=FALSE;
end
else if frame_osztgyak.Visible=TRUE then
begin
frame_osztgyak.btn_feladClick(Sender);
frame_osztgyak.Visible:=FALSE;
end
else if frame_szorgyak.Visible=TRUE then
begin
frame_szorgyak.btn_feladClick(Sender);
frame_szorgyak.Visible:=FALSE;
end
else if frame_config.Visible=TRUE then
frame_config.Visible:=FALSE;
frame_kivongyak.Visible:=TRUE;
frame_kivongyak.load_config(Sender);
end;Mi lehet a gond? Amikor először rejti el akkor nem dobja csak másodszorra
-
dany27
őstag
hali
Egy programot kell készítenem amiben egy StringGrid segítségével különböző adatokat lehet felvinni. Egy olyan gondom lenne hogy nem tudom hogy mi lenne a legjobb megoldás a stringgridben szereplő értékek letárolására. Mivel dinamikusan tudja növelni a user az oszlopok számát illetőleg szabadon tudja módosítani azok sorrendjét ezért valami olyan módszer kellene amivel egyszerűen feltudom cserélni a két oszlopot a fileban, illetve tudom törölni a törölt oszlophoz tartozó értékeket, vagy lehet hogy nem is kellene csak a megfelelő oszlophoz a megfelelő sort kellene kiolvasni a fileból és akkor a fileban nem is kell sorrendbe lennei a oszlopok tartalmának. Ha nincs sorrendbe akkor tipusos fileal könnyen tudnék dolgozni csak annak nem tudom dinamikusan változtatni a szerkezetét. Vagy mégis?
Ezek az 5letek jutottak eszembe csak nem tudom hogy melyik lenne az egyszerűbb..
Ui: egy iskolai naplóról lenne szó, egy lenyiló menüből kiválasztja az osztályt, select eventre betölti a legelső tanuló adatait majd egy stringgridbe a jegyeit, tantárgy és hónapra leosztva.
Egy külön beállítások részbe lehet felvinni az egyes osztályokat, és a hozzájuk tartozó órákat, tanulókat!Előre is köszi!
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest