Listbox da yeni satır her zaman üste olacak

[brs]

Selamlar;

Programda yapılan işlemler için log tutuyorum, ilk önce loglar listboxda listeleniyor belirli sayıya ulaşınca txt olarak farklı bir klasöre kayıt işlemi gerçekleşiyor...

Listbox yeni kayıt girişi gerçekleştiğinde bir önceki kayıt altta kalmalı bunu nasıl yaptırabilirim?

Satır ekleme

Kod: Tümünü seç

procedure TMainForm.PlaylistAdd(Item: String; AObject: TObject = Nil); // Log
begin
  try
    if PListbox.Items.Count >= 30 then
    begin
      PListbox.Items.SaveToFile(LogPlaylist + '\' + FormatDateTime('ddddd hhssnn ', Now) + 'Playlist.txt');
      PListbox.Clear;
    end;
  finally
    PListbox.AddItem(DateTimeToStr(Now) + ' ' + Item, AObject);
  end;

örnek kullanım:

Kod: Tümünü seç

procedure TMainForm.DeleteButtonClick(Sender: TObject); // Delete
begin
  try
     kodlar....
        end;
      end;
    end;
    PlaylistAdd('Delete...');
  except
  end;
end;

[3ddark]

Kod: Tümünü seç

ListBox1.Items.Insert(0, strLogBilgisi);

[brs]

Kod: Tümünü seç

procedure TMainForm.PlaylistLog(LogMesaj: String);
begin
  PListbox.Items.Insert(0, DateTimeToStr(Now) + ' ' + LogMesaj);
end;

Kod: Tümünü seç

procedure TMainForm.Button1Click(Sender: TObject);
begin
PlaylistLog('Deneme');
end;