dbgridde combo kullanımı

[fazil14]

iyi günler ...
Benim sorum, forma 1 tane dbgrid koydum gridin her satırının 1. sütünunda bir combo çıkmasını istiyorum (biliyorum picklist denilen bir olay var) combo içerisinde evet, hayır, belirsiz gibi yazılar çıkacak databasede(evet = e, hayır = h) şeklinde tutulacak ve database de kayıtlı e, h ler gridde evet, hayır olarak görüntülenecek bunu nasıl yapabilirim delphi nin dbgridi buna destek verirmi.
kolay gelsin şimdiden teşekkürler.

[aslangeri]

S.A.
dbgridin piclist ini kullanabilirsin.
Sonra tablodaki alanın ongettext ve onsettext olaylarını kullanarak bahsettiğin olayı gerçekleştirebilirsin.
dikkat etmen gereken nokta string ifadelerin (evet, hayır vs. ) aynı olması büyük harf küçük harf olayı vs.
Kolay Gelsin

[fazil14]

iyi günler

tablodaki alanın ongettext ve onsettext olaylarını kullanarak bahsettiğin olayı gerçekleştirebilirsin.

demişsiniz ama anlıyamadın daha doğrusu bu olayları bulamadım.

[feinpus]

tablonun üzerine çift tıkla çıkan pencerenin içi boşsa pencere içine sağ ile tıkla ve "add all fields" seçeneğini tıkla tablondaki bütün alanları listeleyecek ve bu alanların eventlerine bak. Burada ongettext ve diğerlerini bulabilirsin.

[Armani]

fazil14
galiba sen grid üzerinde bulmaya çalışıyorsun
arkadaşların tablo dedigi database e baglantı sagladıgın ado,table.. nesnenin üzerinde çift tıkla. orda herhangi bir kolonun eventında görebilirsin.

[fazil14]

teşekkürler buldum denicem ben gridde aramıştım
birde dbcheckbox nesnesini gridde yapışık olarak kullanabilirmiyim sanki gridin kendisinden gibi.
kolay gelsin...

[feinpus]

Kod: Tümünü seç

procedure TDbGrid1.DrawColumnCell(const Rect: tRect;
  DataCol: integer; Column: TColumn; State: TGridDrawState);
    Const
 CtrlState : array[Boolean] of Integer = (DFCS_BUTTONCHECK,
     DFCS_BUTTONCHECK or DFCS_CHECKED);
var
CheckBoxRectangle : TRect;
outrect: TRect;
begin

Canvas.FillRect(Rect);

InflateRect(outrect,-2,-2);

if Column.Field is TBooleanField then
begin
 Canvas.FillRect(Rect);
 CheckBoxRectangle.Left := Rect.Left + 2;
 CheckBoxRectangle.Right := Rect.Right - 2;
 CheckBoxRectangle.Top := Rect.Top + 2;
 CheckBoxRectangle.Bottom := Rect.Bottom - 2;
 DrawFrameControl(Canvas.Handle,
                  CheckBoxRectangle,
                  DFC_BUTTON,
 CtrlState[Column.Field.AsBoolean]);
end else
DrawText(Canvas.Handle,PChar(Column.Field.displaytext),
        length(Column.Field.DisplayText),outrect,
        DT_VCENTER or DT_SINGLELINE or DT_NOPREFIX);
end;