DBGrid suchen

[MrSpock]

Hallo Peeters,

naja, vieleicht wäre eine Fremdkomponente dazu wirklich günstiger.

Eine Dropdownlist kannst du aber trotzdem erstellen. Wenn du auf das DBGrid rechtsklickst und den Spalteneditor auswählst, dort alle Felder hinzufügst und für das entsprechende Feld eine Picklist über den OI erstellst.

Eine checkbox kannst du selbst erzeugen, z.B. so:

Delphi-Quellcode:

procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DataCol = 5 then
  begin
    DBGrid2.Canvas.Pen.Color := clBlack;
    DBGrid2.Canvas.Brush.Color := clRed;
    DBGrid2.Canvas.Rectangle(Rect);
    {dbgrid2.DefaultDrawColumnCell(Rect,DataCol,Column,State);}
    DBGrid2.Canvas.Brush.Color := clWhite;
    DBGrid2.Canvas.Rectangle(Rect.Left+3,
                  Rect.Top+3,
                             Rect.Left+13,
                             Rect.Top+13);
    if Table2male.Value then
    begin
       DBGrid2.Canvas.MoveTo(Rect.Left+3,Rect.Top+3);
       DBGrid2.Canvas.LineTo(Rect.Left+13,Rect.Top+13);
      DBGrid2.Canvas.MoveTo(Rect.Left+13,Rect.Top+3);
      DBGrid2.Canvas.LineTo(Rect.Left+3,Rect.Top+13);
    end;
  end;
end;