Default Removing scrollbars from TDBCtrlGrid

http://www.delphipages.com/forum/showthread.php?t=133067

 

This one works for TDBGrid, but I think it also works for TDBCtrlGrid:

http://www.swissdelphicenter.ch/en/showcode.php?id=1880

Regards,
Abdulaziz Jasser
Reply With Quote
  # 3  
05-06-2005, 02:44 AM
omercan omercan is offline
Member
 
Join Date: Aug 2001
Posts: 89
Default RE: Removing scrollbars from TDBCtrlGrid
Hi

This is how to remove both scrollbars from a
TDBCtrlGrid:

procedure TForm1.BitBtn1Click(Sender: TObject);
const
Enable: Array[Boolean] of Byte = (ESB_ENABLE_BOTH, ESB_DISABLE_BOTH);
begin
EnableScrollBar(DBCtrlGrid1.Handle,SB_VERT,Enable[Abs(VertScrollBar.Range - Height) < 3]);
ShowScrollbar(DBCtrlGrid1.Handle, SB_BOTH, false);
end;

Good luck!

Omer

你可能感兴趣的:(Default Removing scrollbars from TDBCtrlGrid)