Einzelnen Beitrag anzeigen

barf00s
(Gast)

n/a Beiträge
 
#7

Re: Anzeigen eines bestimmten Forms

  Alt 2. Jun 2005, 10:48
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
  Mit Zitat antworten Zitat