Stringgrid und Hints

[fredo1234]

Hallo!
Ich benutze ein Stringgrid in dem verschiedene Informationen darstelle. Zusätzlich dazu benutze ich Hints um zu jeder Zelle weitere Infos anzuzeigen. um auf jede einzelne Zelle zugreifen zu können bnutze ich MouseToCell(X, Y, ACol, ARow) um aus den Mauskoordinaten Zeile und Spalte zu errechnen.

Eigentliches Problem ist aber, dass am rechten und unteren Rand weiße Ränder auftreten, die keine richtige Zellen mehr enthlten. Da schreibt mouseToCell negative Werte in ACol, ARow und es gibt nen Fehler.

Weiß jemand, wie man diese Ränder unterbinden könnte bzw. das Problem anderweitig lösen könnte?
Danke schonmal.

[omata]

Moin,

ich verstehe jetzt nicht wirklich wo das Problem ist.

Es ist doch wunderbar, dass du im nicht definierten Bereich -1 bekommst. Dann berechnest du deine Hints einfach nicht, wenn Col oder Row -1 sind.

Oder verstehe ich da jetzt was falsch.

MfG
Thorsten

[fredo1234]

Das Problem ist, dass mousetocell longints als Parameter erwartetm und die können nunmal nicht -1 sein.

[Keldorn]

Delphi-Quellcode:

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; 
  X, Y: Integer); 
var 
  MyRow, MyCol: Integer; 
  oldhint:string; 
begin 
  oldhint:=StringGrid1.hint; 
  StringGrid1.MouseToCell(x, y, MyCol, MyRow); 
  if (MyRow<>-1) and (Mycol<>-1) then 
    StringGrid1.hint:=StringGrid1.Cells[mycol,myrow] 
   else 
    StringGrid1.hint:=''; 

  if oldhint<>StringGrid1.hint then Application.CancelHint; 
end;

ist doch gar kein Problem wie machst du es denn?

Mfg Frank

[fredo1234]

Jetzt läufts, irgendwie hatte ich ein Brett vor dem Kopf.
Danke!!