DBGrid Event

[husonet]

Arkadaşlar DBGrid bileşenine OnSetEditText eventini eklemek istiyorum bunu nasıl yapabilirim yardımcı olursanız sevinirim.


İyi Çalışmalar.

[husonet]

Arkadaşlar ben bu eventi yazdım Component ile event'e örnek arayan arkadaşlar yararlanması açısından forma yazıyorum umarım sizlerede yardımcı olur.

Kod: Tümünü seç

unit hugrid;

interface
uses
  ShellAPI, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, DB, StdCtrls, ClipBrd, Menus, dbctrls,  Jpeg,
  extctrls, Registry,  Comctrls;

Type
    TYeniNotifyEvent = Procedure (Sender : TObject; ACol,ARow : Integer; const Value : String) of Object;
    THuGrid = class(TDBGrid)
    Private
      int_onSetEditText : TYeniNotifyEvent;
      {Private Deklerasyon}
    protected
      {protected Deklerasyon}
    public
        constructor Create(AOwner: TComponent); override;
        destructor Destroy ; override ;
    Published
      property onSetEditText : TYeniNotifyEvent read int_onSetEditText write int_onSetEditText;
      {Published declarations }
    End;
  type
    TMyBookmarks = class(TBookmarkList);

Procedure Register;

implementation

Procedure Register;
Begin
    RegisterComponents('Huso Grid', [THuGrid]);
End;

Constructor THuGrid.Create(AOwner: TComponent);
Begin
    inherited; //Create(Owner);
End;

Destructor THuGrid.Destroy;
Begin
    inherited; //Destroy;
End;

end.

Sadece Event in bileşene eklendiğini görebilirsiniz.

İyi Akşamlar.

[freeman35]

Bir-iki öneri
Class türetirken veya yazarken çekirdek "Custom" matığını kullanmaya çalışın, yada kendinizi bu standarda yöneltin.
Aksinin zararı yada faydası olduğunu sanmıyorum, ama böyle bir litaretür var. Buna alışmak ileride yazılmış kod ları incelerken anlaşılmasında kolaylık olur sanırım

Kod: Tümünü seç

THuGrid = class(TCustomDBGrid)

Husonet saolsun kendi sorusunu sormuş ve cevabını buraya yazmış. Bu güzel alışkanlığı ben formu ilk kurduğumuzdan beri üşenmeden hala yazıyorum.
Çözümleri yazalım lütfen bunları yavaş yavaşta olsa bir havuzda toplamaya çalışıyoruz.

Husonet birde bunun nasıl ve nerde kullanılacağını yazsaymış çok güzel olurmuş

Kod: Tümünü seç

...........
  if Assigned( int_onSetEditText ) then
    int_onSetEditText(Self, Kolon, Satir, Icerik);
........

kolay gele

[husonet]

Hocam öncelikle Component yazımlarında yeniyim bu konu hakkında pek kaynakta bulamıyorum amacım stringgrid te ki onsetedittext eventini oluşturmak ve onun gibi işlem yaptırmaktı galiba boyumdan büyük işlere kalkıştım uğraşılarım bitmedi neticelendirirsem bu sorunun altına çalışır halini koyacağım ilginiz için teşekkür ederim.

İyi Akşamlar.

[mussimsek]

Merhaba,

hocam ingilizcen varsa bu konuda en iyi kaynaklardan birisi Ray Konopka'nın Developing Custom Delphi 3 Components kitabı. İsminin Delphi 3 olduğuna bakma. Bu konudaki en iyi, en yeterli kitaplardan biridir.

http://www.raize.com adresinden pdf sürümünü de satın alabilirsin.

Kolay gelsin.

[husonet]

Hocam ingilizcem o kadar iii değil ama ilerletmeye çalışıyorum