dbgrid e loookupcombobox

[selman]

herkese iyi çalışmalar
Şimdi ben dbgridime bir tane dblookupcombobox eklemek istiyorum..
ve bu dblookupcombobox ile başka kayıtları görmek istiyorum fakat nasıl yapabileceğimi bilemiyorum... yardımcı olursanız sevinirim.....

[husonet]

Öncelikle DBGrid e eklemek istediğin Compenenti formuna ekle sonra DBGrid in DrawColumnCell eventine SetBounds procederunu kullanarak nesneni DBGrid hücresine yerleştir. Bu şekilde Ben çok kullanıyorum mesala Tarih girişleri hep DBGrid de problem olur bu şekilde ben problemimi aşıyorum.

Kod: Tümünü seç

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
if (gdfocused in state) and (column.FieldName='Tarih') then 
  begin 
       dateTimePicker1.SetBounds(rect.left+dbgrid1.left+1, 
       rect.top+dbgrid1.top+1,rect.right-rect.left+1, 
       rect.bottom-rect.top+1); 
       DateTimePicker1.Visible:=true; 
  end; 
end; 


procedure TForm1.DBGrid1ColExit(Sender: TObject); 
begin 
     if dbgrid1.Columns[dbgrid1.SelectedIndex].FieldName='Tarih' then 
          dateTimePicker1.Visible:=False;
end; 

Ayrıca DBGrid in Pick list özelliğinden yararlanabilirsin bu kod'u yazıyorum.

Kod: Tümünü seç

var 
  StringListem,liste: TStrings; 

begin 

  try 
    with StringListem do 
    begin 
        table4.First; 
        while not table1.Eof do 
        begin 
                add(table1.FieldValues['UNVAN']); 
                table1.Next; 
         end; 

    end; 
  end; 

  dbgrid1.Columns[2].PickList:=StringListem; 

  finally 
    StringListem.free; 
  end; 

Ama genelde ben ilk yöntemi kullanıyorum.

Kolay Gelsin...

[ALUCARD]

hocam cok teşekkur edrim b u kod benımde cok işime yaradı
Allah Razı Olsun

[husonet]

Rica Ederim.

[ALUCARD]

aslında boyle bir kod aramıyordum sadece forumda geziniyordum öylesine gozume takıldı bi deneyeyim dedim baktım geçekten de guzel iş yapıyor...

[MicroChip]

infopower diye bir component var böyle konularda harikalar yaratıyo

[aslangeri]

S.A.
TTable nesnesine lookup field ekleyincede aynı işlemi yapması lazım değilmi.?