ListBox控件中的OnData事件怎么使用。

Question

ListBox控件中的OnData事件怎么使用。要源码，给出源码者，分都给他。

Answer 1

哎，Delphi高手今天都回家睡觉了吗？
没人能答这道问题。

Answer 2

比如用在ListBox装不下的情况，
procedure TForm1.ListBoxData(Control: TWinControl; Index: Integer;
  var Data: String);
begin
  //定位纪录
  fFileStr.Seek(Index * RecordSize, soFromBeginning);
  //载入内存
  fFileStr.ReadBuffer(fRecord, SizeOf(fRecord));  //返回给ListBox，作为Item的内容
  Data := fRecord.StrField;
end;

Answer 3

//from
http://www.nifty.ne.jp/forum/fdelphi/samples/01389.html//无所谓高手～～无所谓专家分～～忙ing～～
//伴水不会看日文，就不翻译了～～自己猜猜看～～