本文整理自网络，侵删。
unit unit1;
interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls, checklst, buttons;
type
tform1 = class(tform)
lst1: tlistbox;
mmo1: tmemo;
btn1: tspeedbutton;
edt1: tedit;
btn2: tspeedbutton;
btn3: tspeedbutton;
btn4: tspeedbutton;
procedure btn3click(sender: tobject);
procedure btn4click(sender: tobject);
procedure btn1click(sender: tobject);
procedure btn2click(sender: tobject);
private
{ private declarations }
public
{ public declarations }
end;
var
form1: tform1;
implementation
{$r *.dfm}
procedure tform1.btn3click(sender: tobject);
begin
lst1.items.add(edt1.text);
end;
procedure tform1.btn4click(sender: tobject);
begin
lst1.clear;
end;
procedure tform1.btn1click(sender: tobject);
var i,j:integer;
begin
j:=0;
for i := 0 to lst1.items.count - 1 do
begin
if lst1.selected[i] then
begin
mmo1.lines.add(lst1.items.strings[i]);
j:=j+1;
end;
end;
mmo1.lines.add('选定了'+inttostr(j)+'个对象');
end;
procedure tform1.btn2click(sender: tobject);
begin
mmo1.clear;
end;
end.
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
