Scrolbar i dbGrid ?

Sidder ikke med Delphi lige nu ... men er der ikke en propery der hedder noget med Scrollbar ???

nej

Har du tjekket alle properties for at se om der ikke er en der kan bruges til noget ??

ja

Ved at loade column's ind i design mode og justere breden så der ikke kommer nogen scrollbar.

Martin> er der ikke en nemmere måde ?

Det tror jeg ikke.

Martin> Tænkte jeg nok.......

ShowScrollbar(DBGrid1.Handle, SB_HORZ, False);

Stoney

Stoney> Har placeret din kode under Form.Activate, men det virker ikke, ej heller hvis det placeres under Form.Create ?

Har du prøvet det ?

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
ShowScrollbar(DBGrid1.Handle, SB_HORZ, False);

end;

Stoney

Virker perfekt, tak for hjælpen


procedure TFalcoControl.vDBGridAactDataDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TVolgaColumn;
  State: TGridDrawState);
var
  Grid : TVolgaDBGrid;
begin
  with Sender as TVolgaDBGrid do
  begin
    Grid := (Sender as TVolgaDBGrid);
    ShowScrollbar(Grid.Handle, SB_HORZ, False)
  end;
end;

Selv tak

:-)

Stoney