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

JasserView Public ProfileSend a private message to JasserVisit Jasser's homepage!Find all posts by Jasser

 #3  

05-06-2005, 02:44 AM

omercan

Member

 

Join Date: Aug 2001

Posts: 89

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