Ergebnis der Suchanfrage

• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Instanzierte Formulare ermitteln

   
    by shmia, 11. Feb 2011
  Folgende Procedure prüft, ob ein Formular schon offen ist und erzeugt es ggf. neu:
  function FindOrCreateForm(FormClass: TFormClass; var Reference):Boolean;
  var
  i : Integer;
  begin
  for i := Screen.CustomFormCount-1 downto 0 do
  begin
  if Screen.CustomForms.ClassType = FormClass then
  begin
  TCustomForm(Reference) := Screen.CustomForms;