2010. október 18., hétfő

Replace the default scrollbar of a TStringGrid with buttons


Problem/Question/Abstract:

I want to put two buttons as a scrollbar to my grid instead of using the default Delphi windows scrollbar. I suppose that I should handle the messages like WM_VSCROLL and WM_HSCROLL and setting my grid.Scrollbars := none

Answer:

You should send these messages to the grid on your button presses, e.g. for a line up:

{ ... }
with stringgrid1 do
begin
  perform(WM_VSCROLL, SB_LINEUP, 0);
  perform(WM_VSCROLL, SB_ENDSCROLL, 0);
end;

or use:

procedure buttonupClick(sender);
begin
  SendMessage(Grid1.Handle, WM_VSCROLL, SB_LINEUP, 0)
end;

Nincsenek megjegyzések:

Megjegyzés küldése