There is procedure
uses ... StdDlg ... ;
Procedure FileOpen;
var
PF: PFileDialog;
Control: Word;
s: PathStr;
begin
New(PF, Init('*.dat','Select file:','File name',fdOpenButton,0));
Control:= DeskTop^.ExecView(PF);
case Control of
StdDlg.cmFileOpen, cmOk:
begin
PF^.GetFileName(s) ;
end;
end;
Dispose (PF, Done)
end;
So I have error message
...
lab1.pas(24,10) Error: Identifier not found "cmFileOpen"
...
In TV it is work.
Anybody can help me solve the problem?