Formular Designer

Beispielcode:
//-----------------------------------------------------------------------------
// Author: ???           
// Datum:  ???  
//
// verfügbare Variablen:
//   Form: TForm    -> aktives Formular
//   Parent: TxForm -> Ausgabefenster               
//
// verfügbare Methoden:
//   function  GetSqlExportStr(Parent: TxForm): String;
//   procedure SetSqlExportStr(Parent: TxForm; cSql: String);
//   function  RunSqlExporter(Parent: TxForm; lAuto:Boolean): Boolean;
//   function  SaveDataSqlExporter(Parent: TxForm; cFileName: String; nWahl: Integer; lAuto: Boolean): Boolean;
//   function  ShowDataSqlExporter(Parent: TxForm): Boolean;
//-----------------------------------------------------------------------------

const
    CSV   = 2;                        
    EXCEL = 3;
    HTML  = 4; // nur im Grid möglich

procedure Button1Click(Sender: TObject);
begin
    Form.Edit1.Text := 'Text geändert';
end;

procedure Button2Click(Sender: TObject);
begin
    Form.Close();
end;