本文整理自网络,侵删。
procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var tmp:tlISTITEM;begin TMP:=ListView1.GetItemAt(x,y); if tmp<>nil then
StatusBar1.Panels[0].Text:=TMP.Caption;
end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>