StringGrid: Klick auf FixCol?

[Buddelflink089]

Delphi-Quellcode:

procedure TForm1.StringGrid_AblaufMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var ACol, ARow: Integer;
begin
  StringGrid_Ablauf.MouseToCell(x, y, ACol, ARow);
  if (ARow = 0) and (Button = mBLeft) then 
{ Programmcode der ausgeführt werden soll }
    ShowMessage('Header ' + IntToStr(ACol));
end;

procedure TForm1.StringGrid_AblaufMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var ACol, ARow: Integer;
begin
  StringGRid_Ablauf.MouseToCell(x, y, ACol, ARow);
  if ARow = 0 then
    StringGrid_Ablauf.Cursor:= crHandPoint
   else
    StringGrid_Ablauf.Cursor:= crArrow;
end;

Sollte helfen

Liebe Grüsse Mario

PS: MouseMove als Zuckerl, damit der Benutzer sieht das an diesem 'Buttom' etwas zu machen ist