Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Renate Schaaf,
13. Nov 2020
So funktioniert's prima, und ganz ohne with:
class function TFileBrowser.Instance: TFileBrowser;
begin
if not assigned(FInstance) then
FInstance := TFileBrowser.Create;
Result := FInstance;
end;
class constructor TFileBrowser.Create;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Renate Schaaf,
13. Nov 2020
Vielen Dank an euch beide, so wirds gemacht. Mal wieder dazugelernt.
Also, ohne das "with" finde ich, dass es noch doofer aussieht :)
Gruß, Renate
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Renate Schaaf,
12. Nov 2020
Ich habe versucht, einen Ersatz für TFileOpenDialog zu bauen, der möglichst einfach für Android aufrufbar ist. Das geht aber nur, indem der Benutzer eine Callback-Funktion definiert, also ein "OnExecute", jedenfalls fällt mir nichts anderes ein. Damit der Aufruf möglichst zusammenhängend ist, kann man das Callback anonym definieren.
Hier ist ein Beispiel für den Aufruf:
procedure...