delphi stringgrid change selected row mouse move

The string grid needs to know where to get its images from. Sg_IdeEnhancements.Cells := 'Find Text' Īs you can see, there isn’t anything special here. Sg_IdeEnhancements.Cells := 'Install Packages' Sg_IdeEnhancements.Cells := 'Tools Properties' Sg_IdeEnhancements.Cells := 'Store position' Sg_IdeEnhancements.Cells := 'Store size' Sg_IdeEnhancements.Cells := 'Make sizeable' It adds a field and a few methods.īut first, lets initialize the string grid:Ĭonstructor TForm1.Create(_Owner: TComponent) The code above declares a new type TStringGrid which descends from a class with the same name declared in unit Grids.

Procedure DrawCell(ACol, ARow: Longint ARect: TRect Ĭonstructor Create(_Owner: TComponent) override Procedure MouseDown(Button: TMouseButton Shift: TShiftState Procedure KeyPress(var Key: Char) override Procedure SwitchCell(_Col, _Row: Integer) But I didn’t want to install it, so I made it an interposer class instead. So, what else can we do? Create a component that descends from TStringGrid of course. I won’t go into this preliminary solution too much because the next step was to make this easier to use than having to set up the events each time I want to use it. I used a TImageList with two images for the bitmaps and set the cells that represent an on/off state to ‘0’ and ‘1’ (I could have used ‘Y’ and ‘N’ but ‘0’ and ‘1’ nicely correspond to the indices in the ImageList.)

OnKeyPress for intercepting keyboard presses.

OnMouseDown for intercepting mouse clicks.

Adding a few events got me what I wanted:

So I replaced the TListView with a TStringGrid. I’m a fan of using the keyboard, so this was a no no. I started out with a TListView in report view but when it came to switching with the keyboard I realized that I could only select the first column (or the whole row). (If you are an experienced component developer, expect to be bored by this article. In addition it should allow the user to switch the states using the mouse and the keyboard. It mixes text with two different bitmaps, representing an on/off state. Today I had a need for a grid that looks like this:

Delphi stringgrid change selected row mouse move