本文整理自网络,侵删。
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 winapi: openprocess、getexitcodeprocess、terminateprocess (qq)
Delphi 2010 复制整个文件夹(当然包括嵌套文件夹)
更多相关阅读请进入《Delphi》频道 >>