我在Delphi 7中做了一个小项目,并且在表单上有2个列表框.现在我需要同步这些Listbox的滚动条.保证列表框具有相同数量的项目.当用户移动其中一个滚动条时,应进行同步.我想它应该是'Perform'方法,但我是新手.
所以我在表单上有一个ListBox,它由不同的链接组成,所有这些都是蓝色和下划线(如html链接,你知道).当用户单击其中一个Items(链接)时,它会在默认浏览器中打开,但我也希望该特定链接将颜色更改为紫色.这是我现在OnClick程序中的内容:
procedure TForm1.ListBox1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PAnsiChar(ListBox1.Items[ListBox1.ItemIndex]), nil, nil, SW_SHOWNORMAL);
end;