function loadform(aName: string): integer

» Startseite » netFrame als Plattform Menü » Globale Methoden | » Erweiterte Suche

netFrame-Syntax:
function loadform(aName: string): integer

Beschreibung:
loadform ladet den in aName angegebenes Formular und gibt einen Zeiger auf dieses zurück.
Sollte netFrame den angegebenen Dialog nicht finden wird 0 zurückgegeben.
Es gibt dann mehrere Möglichkeiten ein Formular anzuzeigen.

Beispiel:

//Beispiel nicht modaler Dialog
procedure editCustomerNotModal;
  var
  aDialog : TfrmDesignDialog; //Variable für den Dialog deklarieren
begin
  aDialog := TfrmDesignDialog(loadForm('PM_Customer')); //Den Dialog mit dem Namen 'PM_Customer' laden und der Variable übergeben
  aDialog.setParam('CU_ID', '123'); //Einen globalen Parameter des neuen Dialogs mit dem Namen 'CU_ID' mit dem Wert 123 belegen
  aDialog.showMDIChild; //Den Dialog nicht modal öffnen (Heisst ich kann zwischen Dialogen wechseln)
end;
 
 
//Beispiel modaler Dialog
procedure editProjectModal;
  var
  aDialog : TfrmDesignDialog; //Variable für den Dialog deklarieren
begin
  try
    aDialog := TfrmDesignDialog(loadForm('PM_Project')); //Den Dialog mit dem Namen 'PM_Project' laden und der Variable übergeben
    //Einen globalen Parameter aus der Tabelle auslesen und als Parameter setzen
    aDialog.setParam('PRO_ID', TableProject.FieldByName('PRO_ID').asString); 
    //Eine lokale Variable setzen und dem neuen Dialog übergeben
    aDialog.setLocalVariable('CU_ID', TableCustomer.fieldbyName('CU_ID').asString);
    //Hat der Benutzer den neuen Dialog mit OK bestätigt
    if aDialog.ShowModal = mrOk then
    begin 
      //Dann lokale Daten neu laden
      TableProject.refresh;
    end;
  finally
    //Modale Dialoge müssen immer manuell freigegeben werden
    aDialog.release;
  end;
end;