FileListBoxIndexOf (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

Description

This example uses a file list box, a directory list box, and a label on a form. When you use the directory list box to change directories, a message appears and the color of the form changes, if the file AUTOEXEC.BAT is in the new directory. The code is written in the OnChange event of the directory list box.

Code

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
  FileListBox1.Directory := DirectoryListBox1.Directory;
  if FileListBox1.Items.IndexOf('AUTOEXEC.BAT') > -1 then
  begin
    Color := clYellow;
    Label1.Caption := 'You are in the root directory!';
  end
  else
  begin
    Color := clBtnFace;
    Label1.Caption := '';
  end;
end;

Uses