Thema
:
Delphi
Dateizugriff/Verwaltung funktionieren nicht
Einzelnen Beitrag anzeigen
julchen
Registriert seit: 20. Mär 2008
115 Beiträge
Delphi 10.3 Rio
#
12
Re: Dateizugriff/Verwaltung funktionieren nicht
3. Sep 2008, 12:35
zusammenfalten
·
markieren
Delphi-Quellcode:
unit
form;
uses
SysUtils;
interface
procedure
formular;
implementation
uses
unit6;
procedure
formular;
var
hhp, hhc, hhk, css,
html
:
String
;
begin
Form1.PageControl1.ActivePage := Form1.TabSheet1;
Form1.PageControl2.ActivePage := Form1.TabSheet7;
Form1.Caption := '
project
';
Form1.JvFileListBox1.Mask := '
*.hhp;*.hhc;*.hhk;*.css;*.html
';
hhp := ExtractFileExt(Form1.JvFileListBox1.FileName);
If
FileExists(hhp) = true
then
begin
Form1.SetVisibleTabs([5,6]);
end
else
begin
Form1.SetVisibleTabs([1]);
end
;
end
;
Zitat
julchen
Öffentliches Profil ansehen
Mehr Beiträge von julchen finden