本文整理自网络,侵删。
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使用idhttp.get('') 造成假死(堵塞),请问线程idhttp怎么才能做到不出错?
Delphi tidhttpserver开发http服务端外网无法访问
Delphi2010中使用pchar时e2010 incompatible types: 'char' and 'ansichar' 错误的处理
Delphi andorid应用程序检查wifi有效还是无效
更多相关阅读请进入《Delphi》频道 >>