Ich habe ein StringGrid. Im MouseMove Ereignis habe ich folgenden Code:
Delphi-Quellcode:
procedure Tfm_Hauptformular.sg1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var c,r:integer;
begin
//Hint anzeigen
timer1.enabled:=false;
sg1.ShowHint:=false; //sg1 = stringgrid
sg1.MouseToCell(x,y,c,r);
if (c<sg1.ColCount) and (r<sg1.RowCount)and(c>0)and(r>0) then begin
sg1.Hint:='Bemerkung: '+trim(sg1.Cells[7,r]);
sg1.ShowHint:=true;
timer1.Enabled:=true;
end;
end;
//Timercode
procedure Tfm_Hauptformular.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
sg1.ShowHint:=false;
end;
Dazu brauche ich aber eine Methode den Hint zu sagen, dass er jetzt erscheinen soll. Sonst muss ich jedesmal erst wieder mit der Maus aus dem Grid gehen.
Sowas in der Art sg1.showhintnow
MfG Hitzi