OBS/Auswertung/Formular Designer: Unterschied zwischen den Versionen
Keine Bearbeitungszusammenfassung |
Veraltete font-Tags: schwarze Schriftfarbe entfernt (size/face bleiben), verwaiste Schliess-Tags entfernt; Text im Nachtmodus wieder lesbar, Inhalt unveraendert [Volltext ersetzt] |
||
| (2 dazwischenliegende Versionen von einem anderen Benutzer werden nicht angezeigt) | |||
| Zeile 1: | Zeile 1: | ||
{{Vorlage:Auswertung}} | {{Vorlage:Auswertung}} | ||
<font size="2 | <font size="2" face="Arial"> </font> | ||
=Formular Designer= | =Formular Designer= | ||
| Zeile 15: | Zeile 15: | ||
// verfügbare Methoden: | // verfügbare Methoden: | ||
// function GetSqlExportStr(Parent: TxForm): String; | // function GetSqlExportStr(Parent: TxForm): String; | ||
// procedure | // procedure SetSqlExportStr(Parent: TxForm; cSql: String); | ||
// function | // function RunSqlExporter(Parent: TxForm; lAuto:Boolean): Boolean; | ||
// function | // function SaveDataSqlExporter(Parent: TxForm; cFileName: String; nWahl: Integer; lAuto: Boolean): Boolean; | ||
// function | // function ShowDataSqlExporter(Parent: TxForm): Boolean; | ||
//----------------------------------------------------------------------------- | //----------------------------------------------------------------------------- | ||
| Zeile 28: | Zeile 28: | ||
procedure Button1Click(Sender: TObject); | procedure Button1Click(Sender: TObject); | ||
begin | begin | ||
Form.Edit1.Text := ' | Form.Edit1.Text := 'Text geändert'; | ||
end; | end; | ||
Aktuelle Version vom 23. September 2026, 14:03 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;