本文整理自网络,侵删。
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 网上获取北京时间firedac 下的 sqlite [3] - 获取数据库的基本信息
更多相关阅读请进入《Delphi》频道 >>