:: |
Autor |
Poruka |
himzo Banovan! Odomaćeni član
![Odomaćeni član Odomaćeni član](/images/ranks/stars_orange.gif)
![](http://www.domaci.de/images/no_avatar.gif) |
Godine: 42
Datum registracije: 24 Okt 2005 Poruke: 1390 Mesto: Vojvoda Stepa
![serbia.gif](images/flags/serbia.gif)
|
|
Nemam predstavu koliko bi ovo moglo da bude korisno ali u svakom slučaju može da posluži za zabavu. Procedura ShowStartButton() služi za sakrivanje/prikazivanje "starta". Parametar bValue je logičkog tipa (Boolean) i moguće vrednosti su True (za prikazivanje starta) i False (za uklanjanje starta sa taskbara).
Code: |
procedure ShowStartButton(bValue: Boolean);
var
Tray, Child: hWnd;
C: Array [0..127] of Char;
S: String;
begin[/
Tray := FindWindow ('Shell_TrayWnd', nil);
Child := GetWindow (Tray, GW_CHILD);
while Child <> 0 do
begin
if GetClassName (Child, C, SizeOf(C)) > 0 then
begin
S := StrPAS (C);
if UpperCase (S) = 'BUTTON' then
begin
if bValue = True then ShowWindow (Child, 1)
else
ShowWindow (Child, 0);
end;
end;
Child := GetWindow (Child, GW_HWNDNEXT);
end;
end;
|
|
|
|
|
|
![](templates/subDomaci/images/spacer.gif) |
..::[ TuCko ]::.. ~Brat Slatke Breskvica~
![~Brat Slatke Breskvica~ ~Brat Slatke Breskvica~](/images/ranks/stars_orange.gif)
![](images/avatars/57197453345cced7abe7cf.jpg) |
Godine: 36
Datum registracije: 20 Feb 2005 Poruke: 11008 Mesto: Novi Sad/Zajecar
![serbia.gif](images/flags/serbia.gif)
|
|
ovo ti neje lose samo sto ces morati to da mi objasnis gde to da kopiram, nisam mnogo upoznat sa Delphi
a imam Delphi 7 i sluzio mi samo za pravljenje scriptova i nekih padajucih menia
|
_________________ acronis |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
Doktor ~Sanjicino*slculence~
![~Sanjicino*slculence~ ~Sanjicino*slculence~](/images/ranks/stars_orange.gif)
![](images/avatars/1176565723449c4a8bc1d54.jpg) |
Godine: 38
Datum registracije: 17 Nov 2005 Poruke: 4264 Mesto: Novi Sad
![blank.gif](images/flags/blank.gif)
|
|
Ovo je lokalna procedura i kuca se u implementacionoj sekciji glavne forme... Ispod Implementatio i obavezno ispod kompajler direktive $R, a pre end.
Onda ga pozivas kao i bilo koju drugu proceduru npr. u OnClick eventu Button-a.
Code: | procedure TForm1.Button1Click...
begin
ShowStartButton(False); // za iskljucivanje Starta koristis False, za ukljucivanje True!
end; |
Nije mi jasno kako si pravio skripte i padajuce menije u Delphi-ju 7 a ne znas kako se koriste procedure i gde se kucaju!?
Pozzzzz!
|
_________________ ~*~Vojim svoje srculence najvise na svetu ~*~ :322:
![](http://www.domaci.de/sanjica_021/doktor/banner.gif) |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
..::[ TuCko ]::.. ~Brat Slatke Breskvica~
![~Brat Slatke Breskvica~ ~Brat Slatke Breskvica~](/images/ranks/stars_orange.gif)
![](images/avatars/57197453345cced7abe7cf.jpg) |
Godine: 36
Datum registracije: 20 Feb 2005 Poruke: 11008 Mesto: Novi Sad/Zajecar
![serbia.gif](images/flags/serbia.gif)
|
|
to cu da probam sutra sad moram da ucim za sutra
skipt sam pravio za sajt tu mi nekako bilo lakse a moze i preko notepad ako hoces mogu da ti posaljem da vidis a ima ga na jednom mom sajtu 8)
A za padajuci meni, samo sam prepravljao stari neki program ti mi bilo cisto onako ali nisam uspeo to sto sam hteo
Jel znas kako da dodam, kad pretisnem desni klik na misa i kad ispadne onaj meni da dodam neku novu funkciju
pozz
|
_________________ acronis |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
Doktor ~Sanjicino*slculence~
![~Sanjicino*slculence~ ~Sanjicino*slculence~](/images/ranks/stars_orange.gif)
![](images/avatars/1176565723449c4a8bc1d54.jpg) |
Godine: 38
Datum registracije: 17 Nov 2005 Poruke: 4264 Mesto: Novi Sad
![blank.gif](images/flags/blank.gif)
|
|
Definisi precizno na koji meni mislis.
|
_________________ ~*~Vojim svoje srculence najvise na svetu ~*~ :322:
![](http://www.domaci.de/sanjica_021/doktor/banner.gif) |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
..::[ TuCko ]::.. ~Brat Slatke Breskvica~
![~Brat Slatke Breskvica~ ~Brat Slatke Breskvica~](/images/ranks/stars_orange.gif)
![](images/avatars/57197453345cced7abe7cf.jpg) |
Godine: 36
Datum registracije: 20 Feb 2005 Poruke: 11008 Mesto: Novi Sad/Zajecar
![serbia.gif](images/flags/serbia.gif)
|
|
pa na meni gore File, Wiev, Edit, Tool
a skript sto sam pravio je za domaci.de samo sto NenadS nije hteo da duplira...
www.replay.biz.ly/index.html nalazi se taj meni-script
|
_________________ acronis |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
Doktor ~Sanjicino*slculence~
![~Sanjicino*slculence~ ~Sanjicino*slculence~](/images/ranks/stars_orange.gif)
![](images/avatars/1176565723449c4a8bc1d54.jpg) |
Godine: 38
Datum registracije: 17 Nov 2005 Poruke: 4264 Mesto: Novi Sad
![blank.gif](images/flags/blank.gif)
|
|
Kakav je to meni koji se aktivira desnim tasterom i sadrzi polja File, View, Tools, Edit?
Ovo su stavke koje se koriste u MainMenu klasi. A desni taster je karakteristican za PopUp menije. I jedan i drugi tip menija imas u "Standard" paleti komponenti. Ove menije moze da kreira svako ko zna da koristi misa.
|
_________________ ~*~Vojim svoje srculence najvise na svetu ~*~ :322:
![](http://www.domaci.de/sanjica_021/doktor/banner.gif) |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
..::[ TuCko ]::.. ~Brat Slatke Breskvica~
![~Brat Slatke Breskvica~ ~Brat Slatke Breskvica~](/images/ranks/stars_orange.gif)
![](images/avatars/57197453345cced7abe7cf.jpg) |
Godine: 36
Datum registracije: 20 Feb 2005 Poruke: 11008 Mesto: Novi Sad/Zajecar
![serbia.gif](images/flags/serbia.gif)
|
|
ti i ja nema se sporazumemo nikad
na sajt si valjda video meni sa leve strane
padajuci meni tako ga zovem jbg... evo nasta mislim
|
_________________ acronis |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
Doktor ~Sanjicino*slculence~
![~Sanjicino*slculence~ ~Sanjicino*slculence~](/images/ranks/stars_orange.gif)
![](images/avatars/1176565723449c4a8bc1d54.jpg) |
Godine: 38
Datum registracije: 17 Nov 2005 Poruke: 4264 Mesto: Novi Sad
![blank.gif](images/flags/blank.gif)
|
|
Pa ta slika je upravo to o cemu ti ja pricam. Nije mi jasno ono "meni koji se aktivira desnim tasterom"!?
To sto je na slici to je standardni MainMenu.
Evo ti demo primer pa kazi koliko je to ono sto ti treba. Mozda se na kraju i sporazumemo.
Pozzz
|
_________________ ~*~Vojim svoje srculence najvise na svetu ~*~ :322:
![](http://www.domaci.de/sanjica_021/doktor/banner.gif) |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
..::[ TuCko ]::.. ~Brat Slatke Breskvica~
![~Brat Slatke Breskvica~ ~Brat Slatke Breskvica~](/images/ranks/stars_orange.gif)
![](images/avatars/57197453345cced7abe7cf.jpg) |
Godine: 36
Datum registracije: 20 Feb 2005 Poruke: 11008 Mesto: Novi Sad/Zajecar
![serbia.gif](images/flags/serbia.gif)
|
|
ti je to...ali ja nisam spominjao nikakav meni koj se otvara desnim tasterom
reko sam za meni koj sam pravio za ovaj site i dao sam ti adresu da ga vidis
pozz
|
_________________ acronis |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
Doktor ~Sanjicino*slculence~
![~Sanjicino*slculence~ ~Sanjicino*slculence~](/images/ranks/stars_orange.gif)
![](images/avatars/1176565723449c4a8bc1d54.jpg) |
Godine: 38
Datum registracije: 17 Nov 2005 Poruke: 4264 Mesto: Novi Sad
![blank.gif](images/flags/blank.gif)
|
|
..::[ TuCko ]::.. je napisao/la sledeće: | Jel znas kako da dodam, kad pretisnem desni klik na misa i kad ispadne onaj meni da dodam neku novu funkciju |
Pa ovo si ti napisao...!?
Pozzz
|
_________________ ~*~Vojim svoje srculence najvise na svetu ~*~ :322:
![](http://www.domaci.de/sanjica_021/doktor/banner.gif) |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
patkan92 Upozorenja: 1 od 3 Početnik Domaćeg.de
![Početnik Domaćeg.de Početnik Domaćeg.de](/images/ranks/rankb1_1.gif)
![](http://www.domaci.de/images/no_avatar.gif) |
Datum registracije: 11 Feb 2006 Poruke: 157
![blank.gif](images/flags/blank.gif)
|
|
Hvala za ovo u delphi-u ja sam uspeo ne znam za druge
pozzzzzzzzzz!!!!!!
|
|
|
|
|
![](templates/subDomaci/images/spacer.gif) |
|