Action list

orhanto · Mesaj gönderen **orhanto** » 23 Şub 2004 03:32

Programımda birden cok grid kullanmaktayım.Dbgridteki bilgileri export edecek bir copmponent buldum. Bu komponenti kullanarak dbgrid üzerindeki verileri dosyaya export ediyorum. Bunun için bir adet actionlist bir adet te Popupmenu kullanıyorum.
Şunu merak ediyorum Aynı form uzerınde aynı popupmenu ve actıon listesini kullanan 2 dbgrid var .
Hangi dbgrid üzerinde popupmenu çalışırsa ona ait bilgileri export etmem gerekli aşağıdaki action execute olayına dbgrid1 yada dbgrid2 parametresini nasıl gonderenilirim.

procedure TMaimForm.Export(Sender: TObject);
begin

exporttofile(FileName, dbGrid1,True,True);

end;
İyi Çalışmalar

Sorum biraz acemi veya aptalca olabilir Kusura bakmayın Delphide yeniyim.

Mesaj gönderen **husonet** » 23 Şub 2004 03:44

exporttofile(FileName, dbGrid1,True,True); Bu kodda zaten DBGrid1 parametresini görüyorsun orayı değiştirdiğin zaman istediğin olacaktır.

Kolay Gelsin...

Mesaj gönderen **gkimirti** » 23 Şub 2004 03:46

actionlist ile gonderemezsin
cunku sender aslında actionitem vs. oluyor...
direkt popupmenuyu kullansan yine sorun olur gibi
cunku bu seferde sender menuitem oluyor...
en saglıklısı bir fonk. yada proc haline getirip
herbir dbgrid icin ayrı ayrı yazmak
iki dbgrid icin iki popup menu (eger sayısı az ise sorun olmaz biraz kod kalabalıgı)

orhanto · Mesaj gönderen **orhanto** » 23 Şub 2004 04:08

Bukadar kısa surede cevap yazdığınız için teşekkür ederim.Araştırmalarımda şöyle bir fonksiyona rastladım.Ama tam Çözemedim.Boyle bir fonksiyon uyarlayıp mouse hangi i grid üzerinde ise onun bilgisini alamazmıyım.

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
Cur : TPoint;
begin

GetCursorPos(Cur);
if FindControl(windowfrompoint( Cur )).ClassType =TEdit then
label1.caption:=TEdit(FindControl(windowfrompoint( Cur ))).Text;

end;

Mesaj gönderen **fahrettin** » 23 Şub 2004 04:36

Sanırım ilgili menuitemin kodu calisirken bu menunun hangi grid tarafindan cagirildigini anlamak istiyorsunuz..

Benim aklima gelen cozum:
Gridin uzerine sag ya da sol tiklayinca onenter eventi tetikleniyor. Dolayisiyla tipi TDBGRid olan mesela VAR_GRID seklinde bir global degisken tanimlayip her iki gridin on enter'inda o gridi ilgili degiskene atarsınız...

sonra da

Kod: Tümünü seç

procedure TMaimForm.Export(Sender: TObject); 
begin 
exporttofile(FileName, VAR_GRID,True,True); 
end;

dersiniz....

Mesaj gönderen **gkimirti** » 23 Şub 2004 05:34

guzel cozum fahrettin abi
global degisken sadece pointer oldugu icinde bellek isgali diye bir sey olmayacak
yine gosterdin abiligini
hic aklıma gelmemisti boyle bir yontem
zamanında lazım olmustu tırmalayıp durmustumda
o zamandan beri gıcıgım actionlistlere:)
neyse bir yeni sey daha ogrenmis olduk
allah razı olsun katkılarınızdan dolayı

Mesaj gönderen **fahrettin** » 23 Şub 2004 05:38

estağfirullah...
cümlemizden....

kolay gelsin....

ardahan · Mesaj gönderen **ardahan** » 23 Şub 2004 06:00

Eğer MDI bir yapı kullanıyorsan Ana formun active MDI child ının ilgili class (TDBGrid ) namelerini kullanarak yapabilirsin.

Kod: Tümünü seç

ActiveGrid := ActiveMDIChild.FindComponent( 'DbGrid1' ) as TdbGrid;

şeklinde sonra bu grid üzerine export mu yaparsın print mi yaparsın o sana kalmış

orhanto · Mesaj gönderen **orhanto** » 24 Şub 2004 10:51

Önerileriniz için çok teşekkür ederim .Çok faydalı oldu.Çok Sağolun.

Mesaj gönderen **name** » 24 Şub 2004 05:09

Konu kapanmış gözüküyor ama aşağıda belirttiğim kod daha fazla işe yararmış gibi gözüküyor. Belirli bir olay oluştuğunda çağırılan procedure'e ilgili component'in object bilgiside (Sender: TObject) gider. Yani gönderici component'e ulaşmak için ilgili componentin sinif adı ve parantez içine "sender" parametresi yazılarak ulaşılabilir. TDbGrid(sender) ,TEdit(sender) gibi.

Kod: Tümünü seç

procedure TMaimForm.Export(Sender: TObject); 
begin 

exporttofile(FileName, TDbGrid(sender),True,True); 

end;

Mesaj gönderen **gkimirti** » 24 Şub 2004 05:21

sorun sender a gecilen nesnenin tdbgrid olmaması zaten
deneyip gorebilirsin
mesela bir menu elemanının click yordamına sunu yaz
showmessage(sender.ClassName);

ardahan · Mesaj gönderen **ardahan** » 24 Şub 2004 05:57

Neden uzatıyorsunuz mevzuyu birden fazla event çalıştırmanıza gerek yok ki bahsettiğim yöntem OOP nin klasiklerindendir

Mesaj gönderen **freeman35** » 24 Şub 2004 06:55

mevzun uzadığı falan yok, Forumun amacı sadece sorulara cevap vermek değil, bilgileri paylaşmak ve insanların dağarcığını büyütüp farklı açılardan bakmayı öğretebilmek,
bir kaç öneride benden,
Bende ezelden beri actionlist lere gıcığım ve gereksiz görüyorum dolayısıyla hiç kullanmadım,

Kod: Tümünü seç

if PopupMenu1.PopupComponent = Edit1 then
   Edit1.CopyToClipboard
  else if PopupMenu1.PopupComponent = Edit2 then
    Edit2.CopyToClipboard
  else
    Beep;

görüldüğü gibi PopupComponent hangi component menüyü açtıysa onu döndürüyor, dolayısıylada burdan işlem yapmak çok daha kolay

bir diğeride Global değişken gibi, component ların Tag property lerini bunlar için kullanabilirsiniz

actionlist i sevmeme sebeblerimden biriside şimdi hatırladım galiba MenuItemdan Action a gidebiliniyor ama actiondan MenuItem a gidilemiyor du galiba yada öyle bir şeydi, bu tek yönlü erişimde sinir etmişti beni
Kolay gele

Mesaj gönderen **gkimirti** » 25 Şub 2004 08:21

menuitemdan action cagırınca abi
menuitem a erisemiyorsun
halbuki ben de menuitemin taglarına gore islem yaptırmak istiyordum lakn olmamıstı

Mesaj gönderen **freeman35** » 25 Şub 2004 09:27

Ya anlayışın doğru olsun bilader

Ben sevmediğim şeyleri çobuk unuturum zaten

İşte bi taraftan diğer tarafa erişilmiyordu ve bende ActionList in çokta faydalı bişi olmadığına kanaat getirmiştim. Ha belki bir Editör yapılacaksa ozaman biraz pratiklik sağlıyordu sanırım.
Neyse
Kolay gele