Difference between revisions of "TOpenDialog/zh CN"
From Free Pascal wiki
Jump to navigationJump to searchTyphonFinger (talk | contribs) |
(Deleted English categories) |
||
Line 28: | Line 28: | ||
{{LCL Components}} | {{LCL Components}} | ||
− | |||
− | |||
− |
Latest revision as of 00:40, 7 May 2020
│
English (en) │
français (fr) │
русский (ru) │
中文(中国大陆) (zh_CN) │
TOpenDialog 就是打开文件的弹窗,在 Dialogs tab 的 Component Palette.
procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
begin
try
OpenDialog1.Execute;
s := OpenDialog1.FileName;
Form1.Caption := s;
Memo1.Lines.LoadFromFile(s);
except
on E: Exception do
//ShowMessage( 'Error: '+ E.ClassName + #13#10 + E.Message );
ShowMessage('忘记选择文件或者选择的文件不存在');
end;
end;
参考资料