capturar click en la columna de titulo StringGrid

[[poliburro]]

Código Delphi [-]
procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 Var
  Valor :String;
  LGcCoord: TGridCoord; //Define las cordenadas del mouse en el grid
begin
  LGcCoord := TCustomGrid(StringGrid1).MouseCoord(x,y);
  GiCol := LGcCoord.X; //Establece la columna seleccionada
  GiRow := LGcCoord.Y; //Establece la fila seleccionada
  if (GiRow = 0) And (Button = mbleft) And (GiCol <> -1) then
    Begin
      with stringgrid1 do
        Begin
          GCelda := CellRect(GiCol,0);
          Valor := Cells[GiCol, 0];
          Canvas.Font := Font;
          Canvas.Brush.Color := clBtnFace;
          Canvas.FillRect(GCelda);
          Canvas.TextRect(GCelda, GCelda.Left + 2, GCelda.Top + 2, Valor);
          DrawEdge(Canvas.Handle, GCelda, 10, 2 or 4 or 8);
          DrawEdge(Canvas.Handle, GCelda, 2 or 4, 1);
        End;
     End;
End;
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 Var
  Valor :String;
begin
  if (GiRow = 0) And (Button = mbleft) And (GiCol <> -1) then
    Begin
      with stringgrid1 do
        Begin
          Valor := Cells[Gicol, 0];
          Canvas.Font := Font;
          Canvas.Brush.Color := clBtnFace;
          Canvas.FillRect(GCelda);
          Canvas.TextRect(GCelda, GCelda.Left + 2, GCelda.Top + 2, Valor);
          DrawEdge(Canvas.Handle, GCelda, 4, 4 or 8);
          DrawEdge(Canvas.Handle, GCelda, 4, 1 or 2);
          GCelda := stringgrid1.CellRect(1, 1);
        End;
    End;
end;

[Neftali [Germán.Estévez]]

Empezado por poliburro

...no se enojen, es que estaba usando firefox

Y digo yo, "Que tendrá que ver el tocino con la velocidad..."
Yo utilizo FireFox desde hace mucho tiempo y cuando las cosas se ven bien, se ven bien en todos sitios y cuandose ven mal, se ven mal en todos sitios.

Sólo nos queda que las faltas de ortografía tambié van a ser culpa de Firefox...

Un saludo -sin acritud-.

[Casimiro Notevi]

Empezado por Neftali

Sólo nos queda que las faltas de ortografía tambié van a ser culpa de Firefox...
Un saludo -sin acritud-.

¿Será por eso que se ven tantas faltas de ortografía?, ya me extrañaba a mí, resulta que es el navegador que interfiere en lo que se escribe y cambia los caracteres

[[poliburro]]

Pero si que son enojones mis amigos, haber me explico: resulta que estaba navegando en FireFox cuando pegué mi código y al parecer el navegador no hizo caso del clic que hice en el icono que agrega las etiquetas que formatean código delphi.

Ahora bien, como tenia algo de prisa y quise compartir mi solución, presione el botón de "Enviar Respuesta" en lugar de hacer la vista previa.

Espero disculpen las molestias. Por lo general trato de evitar estos debates.

[Neftali [Germán.Estévez]]

No fue enojo, no te preocupes, fue un comentario a tu comentario...

Un saludo.