OBS/Auswertung/Formular Designer: Unterschied zwischen den Versionen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
Zeile 28: Zeile 28:
  procedure Button1Click(Sender: TObject);
  procedure Button1Click(Sender: TObject);
  begin
  begin
     Form.Edit1.Text := 'läuft...';
     Form.Edit1.Text := 'Text geändert';
  end;
  end;
   
   

Version vom 30. April 2019, 10:50 Uhr

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;