| Edit ile DBGrid Filtreleme
Edit ile DBGrid Filtreleme Kod: Kodu kopyalamak için üzerine çift tıklayın! // Edit 'in OnChange değerine alttaki kodu yazın.
procedure TForm2.Edit1Change(Sender: TObject);
begin
if edit1.Text='' then form1.table1.Filter:='' else
form1.table1.Filter:='[Adi]='+#39+edit1.text+'*'+#39; // Burdaki [Adi] sizin tablonuzda filtrelenecek alandır.
end;
// Edit 'in OnEnter bölümüne de aşağıdaki kodu ekleyin.
procedure TForm2.Edit2Enter(Sender: TObject);
begin
Form1.Table1.Filtered:=TRUE;
end;
// Umarım yardımcı olur.
__________________ SusKun ve Sessiz Mürekkep...
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|