[Delphi] Reset formy

0

Witam.

Jak zresetować formę aby wszystko co na niej edytowałem, powróciło do domyślnych ustawień?

Pozdrawiam.

0

pozmieniać je z powrotem :>

0

ręcznie?:D nie ma co kodu "zaśmiecać" :P

Poradziłem sobie w ten sposób ;]

procedure TForm1.PrzyciskClick(Sender: TObject);
   begin
 form2.DestroyComponents;
  form2.Create(nil);
   form2.close;
    form2.show;
end;

Mam nadzieje, że komuś okaże się pomocny ;]

Pozdrawiam i dzięki za odpowiedzi :)

0

I gdzie niszczysz form2? Niszczysz wszystkie jej komponenty a form2 nadal istnieje a ty tworzysz kolejną a poprzednia dalej w pamięci.

EDIT//
Nie wiem jakie masz Delphi ale w Dephi 7 Enterpise w przykładach \Demos\RichEdit
jest moduł reinit.pas i za jego pomocą zrobisz to "po ludzku".
Masz procedury ReinitializeForms - przeładowanie wszystkich formularzy i ReloadInheritedComponent dla konkretnego formularza.

0

No dobra, to może w D7E jest taka opcja, ale np w innych Delfinach, tudzież Lazarusie na którym pracuję nie ma takich procedur.
A pisanie kilkuset linijek w kilkudziesięciu projektach zakrawa o chorobę psychiczną :D
Jak jeszcze można wyczyścić wszystko na formie? (przywrócić do stanu początkowego)
Dodam, iż forma jest wczytywana z biblioteki DLL więc to może być coś w stylu niszczenia formy (gdyby nie to, że nie można zniszczyć formy w niej samej).

1 użytkowników online, w tym zalogowanych: 0, gości: 1