Einzelnen Beitrag anzeigen

MarcRB75

Registriert seit: 31. Mai 2018
Ort: Hof/Saale
51 Beiträge
 
Delphi XE2 Starter
 
#11

AW: Datenbanken während der Designzeit alle schließen/öffnen

  Alt 14. Jan 2023, 19:29
ohe je ... ich halt mal wieder. Ich und meine Ideen.

Wäre halt, so finde ich, schon praktisch gewesen.

Wärend der Laufzeit öffene oder schließe ich z.B. auch nur Datenbanken, deren Pfad existiert, die Tabellen einen Tabellennamen haben und dieser gültig ist. Das ist alles nicht so tragisch.

Ich habe auch schon eigene, nach meinen Bedürfnissen Radiogroups, DBComboboxen, DBLookupComboboxen entwickelt.
Auch, dass man StringPropertys und Editoren verwendet.

Also mit "Application.ComponentsCount-1" ... funktioniert das während der Designzeit überhaupt nicht.

for i := 0 to Application.ComponentCount-1 do
begin
Comp :=Application.Components[i];

if Comp is TForm then
begin
Memo.Lines.Add(TForm(Comp).Name);
Application.ProcessMessages;
end;

Naja... es war halt mal wieder so eine verrückte Idee...


Aber trotzdem nochmal vielen Dank an ALLE, die mir geantwortet und sich ihre Gedanken hierzu gemacht haben.
Marc
  Mit Zitat antworten Zitat