Anzeigen eines bestimmten Forms

[barf00s]

Delphi-Quellcode:

uses
  Contnrs;

var
  xFormList: TObjectList;


begin
  xFormList := TObjectList.Create;
  xFormList.Add(myErstelltesForm);
  ...
end;


function GetForm(xList: TObjectList; const sFormName: string): TForm;
var
  iIndex: integer;

begin
  Result := nil;
  for iIndex := 0 to xList.Count - 1 do
    if TForm(xList[iIndex]).Name = sFormName then begin
      Result := TForm(xList[iIndex]);
      Exit;
    end;  
end;

var
  xTermin: TTermin; // 

begin
  xTermin := GetForm(xFormulare, 'frmTermin');
  if Assigned(xTermin) then begin
    xTermin.Button := 'Fenster';  // button? nich button.caption?
    xTermin.ShowModal;
  end;
end;

oder sowas in der art