Desenhar um TLabel na c�lula selecionada do TStringGrid.

Question

Ol� pessoal, preciso de uma ajuda para desenha um componente TLabel, dentro da coluna selecionada do TStringGrid.Obrigado....

Fabianosales · Answer

Declare uma vari�vel para armazenar a coordenada da c�lula selecionada.

  private
    { Private declarations }
     SelectedCell : TPoint;

Atualize a vari�vel no evento CellSelect

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  SelectedCell.X := ACol;
  SelectedCell.Y := ARow;
end;

Desenhe uma c�pia do controle na c�lula selecionada...

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ACol = SelectedCell.X) and (ARow = SelectedCell.Y) then
    begin
      BitBlt(StringGrid1.Canvas.Handle, Rect.Left, Rect.Top, Label1.Width, Label1.Height,
               Label1.Canvas.Handle,0,0, SRCCOPY);
    end;
end;

Fabianosales · Answer

Ooops.Favor considerar somente este trecho aqui. (N�o consegi editar o post). :twisted:[quote:6c5975fc26][code:1:6c5975fc26]procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);begin  if (ACol = SelectedCell.X) and (ARow = SelectedCell.Y) then    begin      BitBlt(StringGrid1.Canvas.Handle, Rect.Left, Rect.Top, Label1.Width, Label1.Height,               Label1.Canvas.Handle,0,0, SRCCOPY);    end;end;[/code:1:6c5975fc26][/quote:6c5975fc26]...