To je to. Samo ja sam uradio ovako, jer sam zeleo da mi filtrira odredjenu bazu i to samo iz te celije:
procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState) ;
var
i: Integer;
begin
if DBGrid1.SelectedIndex = 14 then begin
for i := 0 to DBGrid1.ControlCount - 1 do
if DBGrid1.Controls
is TInPlaceEdit then
begin
with DBGrid1.Controls as TInPlaceEdit do
begin
Table9.Filter:='nazivpolja=' + QuotedStr(Text + '*');
end;
end;
end;
end;
Svaka ČAST.
Sto puta sam ti SRPSKI rekao:
ono što jednom crack-uješ,
ne možeš više da patch-uješ!