|
Registriert seit: 8. Nov 2006
1.360 Beiträge
Delphi 10.3 Rio
|
Re: Unterordnernamen auslesen
13. Jun 2007, 10:30
Bei mir kommt immer die Message wenn ich kein name auswähle und wenn ich einen Ordner auswähle
Delphi-Quellcode:
procedure TForm7.Speichern2Click(Sender: TObject);
begin
ShellTreeView1.root:= Pfadordner;
if ShellTreeView1.Root = ShellTreeView1.Path then
begin
speichern; //Alles speichern
end
else
begin
MessageDlgPos('Bitte Ordner auswählen für die dazugehörige KW',mtInformation,[mbOk],0,290,300);
end;
end;
Sorry
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...
Surft Ihr mit dem Taschenrechner?"
|