Simulate a click on the first item of a TFileListBox

[Roland57]

Hello!

I have made a little application for viewing text files of a folder. There is a TFileListBox. When the user clicks on an item (or changes the selected item with keyboard arrows), the file is loaded into a TMemo.

I would like that, when the directory changes, the first file of the list to be loaded, as if the user had clicked on the first item. It sounds easy, but I don't find the way to do that.

The application is here: https://github.com/rchastain/textview

Any other suggestion on this project would be also welcome.

Regards.

Roland

[Zvoni]

Since TFileListBox is descended from TCustomListBox, my money would be either on Property ItemIndex or Property Selected

https://lazarus-ccr.sourceforge.io/docs/lcl/stdctrls/tcustomlistbox.selected.html

[Roland57]

Since TFileListBox is descended from TCustomListBox, my money would be either on Property ItemIndex or Property Selected

Thank you for your answer. Indeed, this seems to work:

Code: Pascal  [Select][+][-]

1.   FileListBox1.ItemIndex := 0;
2.   FileListBox1.Click;

[Roland57]

Here is what I did:

Code: Pascal  [Select][+][-]

1. procedure TForm1.LoadFirstItem;
2. begin
3.   if FileListBox1.Items.Count > 0 then
4.   begin
5.     FileListBox1.ItemIndex := 0;
6.     FileListBox1.Click;
7.   end else
8.     Memo1.Clear;
9. end;

Not sure that the organisation of my code be optimal, but it seems to work.