StringGridin Her Celline Hint

[husonet]

Kod: Tümünü seç

procedure TfrmUretimSevkiyatListesi.sgCarsafListeMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
//Yazar: Husonet
//Tarih: 20.11.2007
//İsim: Hüseyin ÖZDEMİR
//www.husonet.com
var
  Col,Row:integer;
begin
   TStringGrid(sender).MouseToCell(X,Y, Col, Row);
   if (col > -1) and (Row > -1) then
    if (Col <> FCol) or (Row <> FRow) then
    begin
       FCol := Col;
       FRow := Row;
       Application.CancelHint;
       TStringGrid(sender).Hint := AGridIrsaliyeNo[Col, Row]; 
    end;
end;

Kolay Gelsin...