Maus-Ereignisse im Sringgrid

[Hansa]

Hi,

ich will in einem Grid in der Titelzeile einen Hint bringen. Deshalb habe ich ShowHint des Grids auf true gesetzt und bei Row = 0 den Hint gesetzt (im OnMouseMove), also so:

Delphi-Quellcode:

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if StringGrid1.Row = 0 then begin
    case StringGrid1.Col of
      1 : StringGrid1.Hint := 'Nr. eingeben';
      2 : StringGrid1.Hint := 'keine Eingabe möglich';
    end;
  end;
end;

Tja, der Hint hat sich versteckt und taucht nicht auf.

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]