Beschleunigung bei Programmstart, Ressourcen sparen, Dialoge

[Ferber]

Hi, einfach nur ein Beitrag den vieleicht jemand brauchen kann.
Speziell für Anwendungen mit sehr vielen Dialogen und Formularen geeignet.

Bei Programmoptionen Formulare von 'Automatisch erzeugen' -> 'Verfügbare Formulare' verschieben und bei Bedarf erzeugen.

Syntax 1: if ShowForm(TMyForm, Myform, smModal)=mrOk then ...

Syntax 2: ShowForm(TMyForm, Myform, smShow )

Formular wird nur bei Bedarf erzeugt und angezeigt, bzw. angezeigt.

Delphi-Quellcode:

unit UShowForm;

interface

uses Classes, Forms;

type
  TShowMode = (smModal, smShow);

function ShowForm(InstanceClass: TComponentClass; var Reference; aShowMode:TShowMode):TModalResult;

implementation

procedure CreateForm(InstanceClass: TComponentClass; var Reference);
begin
  if Pointer(Reference)=nil
     then Application.CreateForm(InstanceClass, Reference);
end;

function ShowForm(InstanceClass: TComponentClass; var Reference; aShowMode:TShowMode):TModalResult;
begin
  CreateForm(InstanceClass, Reference);
  if aShowMode = smModal
     then TForm(Reference).ShowModal
     else TForm(Reference).Show;
  Result:=TForm(Reference).ModalResult;  // macht nur bei modalem Aufruf Sinn
end;

end.

mfg Otto