Ĺadny brzuch
Jak zrobić ( w Delphi) aby na wyznaczonym miejscu można było dodawać własne skróty do progrmów ???
Jak zrobić ( w Delphi) aby na wyznaczonym miejscu można było dodawać własne skróty do progrmów ???
Lajk dys? http://forum.ks-eksp...5020&hl=skr%F3t
http://delphi.about..../l/aa091499.htm tu masz jak zroić skrót do jakiegoś programu w Delphi :)
chodzi mi o to zby na formie było miejsce aby nie zależnie kto otworzył program mógł z pulpitu dodać do tego programu skrót. (tak jak pasek szybkiego uruchamiania - możesz dodać skrót od dowolnego programu).
chodzi mi o to zby na formie było miejsce aby nie zależnie kto otworzył program mógł z pulpitu dodać do tego programu skrót. (tak jak pasek szybkiego uruchamiania - możesz dodać skrót od dowolnego programu).
pisz troche jasniej z laski swojej bo ta wypowiedz jest malo przejzysta.
Pomoge ci:
1. Gdzie ma zostac umieszczony skrot?
2. Do czego ma to byc skrot?
Skoro jest to klon pasków narzędzi z explorera, można obsłużyć przeciąganie plików/folderów, utworzyć na formie jakieś ikonki i jazda :D
heh np. u kumpla odpalam program w programie jest puste miejsce i na to miejsce moge przeciągnąć ikonki z pulpitu lub utworzyć tam skrót. Terz już ktoś kapuje ???
Ja niezbyt :huh:. Tam skrót to znaczy gdzie?
Ja niezbyt :huh:. Tam skrót to znaczy gdzie?
A ja chyba wiem, i zaraz przykładzik zrobię :D
coś takiego jak w winie zrobisz dodatkowy pasek narzędzi i tam umieszczasz ikonki.
coś takiego jak w winie zrobisz dodatkowy pasek narzędzi i tam umieszczasz ikonki.
No to ja bym zrobił to w ten sposób, ze w ondragdrop (albo ondragOver - zawsze mi sie myli) pobierał ściezke, tworzył dynamicznie SpeedButton, ikonke też pobrał tak dla wyglądu i w onclick dawał ShellExecute.
Użytkownik programista1101 edytował ten post 21 maj 2005, 13:34
No więc macie :D /jeszcze tylko kosmetyczne poprawki i będzie ok...
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Forms, ShellApi, Controls, StdCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure UtworzButon(plik:pchar); procedure ButonKlik(Sender: TObject); private procedure DropFiles(var msg:tmessage); message WM_DROPFILES; end; var Form1: TForm1; lb:integer=0; btn:array of record bt:tbutton; sciezka:pchar; end; implementation {$R *.dfm} procedure TForm1.UtworzButon; begin setlength(btn,lb+1); btn[lb].bt:=tbutton.Create(self); with btn[lb].bt do begin Parent:=self; Left:=(Width+5)*lb+5; Top:=Height; Caption:=extractfilename(plik); onclick:=ButonKlik; Tag:=lb; end; getmem(btn[lb].sciezka,256); CopyMemory(btn[lb].sciezka,plik,256); inc(lb); end; procedure TForm1.ButonKlik; begin ShellExecute(handle,'open',btn[tbutton(sender).Tag].sciezka,nil,nil,SW_SHOWNORMAL); end; procedure TForm1.DropFiles; var i:integer; buf:pchar; begin getmem(buf,256); for i:=0 to DragQueryFile(msg.wParam,$FFFFFFFF,nil,0)-1 do begin DragQueryFile(msg.wParam,i,buf,256); UtworzButon(buf); end; end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.HorzScrollBar.Tracking:=true; Form1.VertScrollBar.Tracking:=true; DragAcceptFiles(Handle,true); end; end.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Jak zrobić ( w Delphi) aby na wyznaczonym miejscu można było dodawać własne skróty do progrmów ???
Lajk dys? http://forum.ks-eksp...5020&hl=skr%F3t
http://delphi.about..../l/aa091499.htm tu masz jak zroić skrót do jakiegoś programu w Delphi :)
chodzi mi o to zby na formie było miejsce aby nie zależnie kto otworzył program mógł z pulpitu dodać do tego programu skrót. (tak jak pasek szybkiego uruchamiania - możesz dodać skrót od dowolnego programu).
chodzi mi o to zby na formie było miejsce aby nie zależnie kto otworzył program mógł z pulpitu dodać do tego programu skrót. (tak jak pasek szybkiego uruchamiania - możesz dodać skrót od dowolnego programu).
pisz troche jasniej z laski swojej bo ta wypowiedz jest malo przejzysta.
Pomoge ci:
1. Gdzie ma zostac umieszczony skrot?
2. Do czego ma to byc skrot?
Skoro jest to klon pasków narzędzi z explorera, można obsłużyć przeciąganie plików/folderów, utworzyć na formie jakieś ikonki i jazda :D
heh np. u kumpla odpalam program w programie jest puste miejsce i na to miejsce moge przeciągnąć ikonki z pulpitu lub utworzyć tam skrót. Terz już ktoś kapuje ???
Ja niezbyt :huh:. Tam skrót to znaczy gdzie?
Ja niezbyt :huh:. Tam skrót to znaczy gdzie?
A ja chyba wiem, i zaraz przykładzik zrobię :D
coś takiego jak w winie zrobisz dodatkowy pasek narzędzi i tam umieszczasz ikonki.
coś takiego jak w winie zrobisz dodatkowy pasek narzędzi i tam umieszczasz ikonki.
No to ja bym zrobił to w ten sposób, ze w ondragdrop (albo ondragOver - zawsze mi sie myli) pobierał ściezke, tworzył dynamicznie SpeedButton, ikonke też pobrał tak dla wyglądu i w onclick dawał ShellExecute.
Użytkownik programista1101 edytował ten post 21 maj 2005, 13:34
No więc macie :D /jeszcze tylko kosmetyczne poprawki i będzie ok...
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Forms, ShellApi, Controls, StdCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure UtworzButon(plik:pchar); procedure ButonKlik(Sender: TObject); private procedure DropFiles(var msg:tmessage); message WM_DROPFILES; end; var Form1: TForm1; lb:integer=0; btn:array of record bt:tbutton; sciezka:pchar; end; implementation {$R *.dfm} procedure TForm1.UtworzButon; begin setlength(btn,lb+1); btn[lb].bt:=tbutton.Create(self); with btn[lb].bt do begin Parent:=self; Left:=(Width+5)*lb+5; Top:=Height; Caption:=extractfilename(plik); onclick:=ButonKlik; Tag:=lb; end; getmem(btn[lb].sciezka,256); CopyMemory(btn[lb].sciezka,plik,256); inc(lb); end; procedure TForm1.ButonKlik; begin ShellExecute(handle,'open',btn[tbutton(sender).Tag].sciezka,nil,nil,SW_SHOWNORMAL); end; procedure TForm1.DropFiles; var i:integer; buf:pchar; begin getmem(buf,256); for i:=0 to DragQueryFile(msg.wParam,$FFFFFFFF,nil,0)-1 do begin DragQueryFile(msg.wParam,i,buf,256); UtworzButon(buf); end; end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.HorzScrollBar.Tracking:=true; Form1.VertScrollBar.Tracking:=true; DragAcceptFiles(Handle,true); end; end.