passing the right value in TFilenameEdit

[mangakissa]

For the first time I'm using  TFileNameEdit to get a directory. To extract the directory with the value returned from the dialogname I call property AcceptFileName:

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

1. procedure TFrmOptions.EDefaultAcceptFileName(Sender: TObject; var Value: String);
2. begin
3.   EDefault.Text := ExtractFileDir(Value);
4. end;          
5.  

But Edefault.text gets the whole value of the variabele 'Value' and not the extracted directory.

How do I get the right value to EDefault.Text?

[FTurtle]

AcceptFileName(Sender: TObject; var Value: String);

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

1. procedure TFrmOptions.EDefaultAcceptFileName(Sender: TObject; var Value: String);
2. begin
3.   Value := ExtractFileDir(Value);
4. end;