(Gast)
n/a Beiträge
|
Re: Anzeigen eines bestimmten Forms
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
|
|
Zitat
|