Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
29. Feb 2004
OK. Hab's:
procedure ExchangeItems(lv: TListView; const i, j: Integer);
var
tempLI: TListItem;
begin
lv.Items.BeginUpdate;
try
tempLI := TListItem.Create(lv.Items);
tempLI.Assign(lv.Items.Item);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
29. Feb 2004
Ja, kann mir da mal eben jemand auf die Sprünge helfen? Ich habe da irgendwie ein Brett vor dem Kopf. Irgendwie will das nichts o, wie ich will:
procedure TForm1.SpinButton1DownClick(Sender: TObject);
var
CurrIndex: Integer;
NewItem: TListItem;
begin
if ListView1.ItemIndex > 0 then
begin
CurrIndex := ListView1.ItemIndex;