Delphi dicas

Como congelar a primeira coluna do dbgrid

Type

        THack = class(TDBGrid);



        // evento onclick do botão para congelar coluna



        procedure TForm1.Button1Click(Sender: TObject);

        begin

                THack(DBGrid1).Columns[0].ReadOnly := True;

                THack(DBGrid1).FixedCols := 2;

        end;



        // evento onColEnter do DBGrid



        procedure TForm1.DBGrid1ColEnter(Sender: TObject);

        begin

                if (THack(DBGrid1).SelectedIndex = 0) then

                begin

                        THack(DBGrid1).LeftCol := 2;

                        THack(DBGrid1).SelectedIndex := 1;

                end;

        end;



        // evento onKeyDown do componente DBGrid



        procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

        begin

                if (Key = VK_Left) and (THack(DBGrid1).SelectedIndex = 1) then

                Key := VK_Clear;

        end;

end.

por : Jaber S. C. Lima