Information on File Dialogs

[PatBayford]

All of the standard Lazarus dialogs dealing with files have an Event labelled OnChangeFolder, however, this event passes no data regarding the change/s, and there seems to be no simple way of getting this information from the component/s direct. Are any of the esteemed members of this Forum aware of the correct way to implement these events?

[ASerge]

All of the standard Lazarus dialogs dealing with files have an Event labelled OnChangeFolder, however, this event passes no data regarding the change/s, and there seems to be no simple way of getting this information from the component/s direct.

For me it's simple

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

1. procedure TForm1.OpenDialog1FolderChange(Sender: TObject);
2. begin
3.   Caption := (Sender as TOpenDialog).FileName;
4. end;

[turrican]

All of the standard Lazarus dialogs dealing with files have an Event labelled OnChangeFolder, however, this event passes no data regarding the change/s, and there seems to be no simple way of getting this information from the component/s direct.

For me it's simple

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

1. procedure TForm1.OpenDialog1FolderChange(Sender: TObject);
2. begin
3.   Caption := (Sender as TOpenDialog).FileName;
4. end;

As Serge saying, I would like to do in more pessimistic manner :

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

1.     procedure TForm1.OpenDialog1FolderChange(Sender: TObject);
2.     begin
3.       if Sender is TOpenDialog then Caption := TOpenDialog(Sender).Filename;
4.     end;
5.  

[PatBayford]

Thanks chaps - unable to see the wood for the trees as usual!!!