===== Formular Eigenschaften (formStart) ===== ==== Einleitung ==== Unter Formular versteht man das "Fenster" bzw. den "Dialog", der dann auf dem RBS angezeigt wird. Die Größe, Startposition und Verhalten vom Formular muss im Vorfeld konfiguriert werden. Folgendes Bild zeigt einige Beispiele solcher Formulare:\\ **Dialogformular vom ChaosAddOn**\\ {{:cockpit-xp:addon:formulare:tbutton1.png?nolink|}}\\ **Auswahlformular vom Reifenwechsel-AddOn**\\ {{:cockpit-xp:addon:formulare:tbutton3.png?nolink|}}\\ **Formular mit Info-Liste aller Fahrzeug**\\ {{:cockpit-xp:addon:formulare:tbutton4.png?nolink|}}\\ ==== Eigenschaften vom Formular ==== Jedes **Formular** muss einmalig einzeln konfiguriert werden. Unter Formular versteht man das komplette Fenster. Möchte man später noch sogenannte TButton, TBitBtn, Label, ListBox etc. dargestellt haben, so müssen diese dann auch in den Formular-Eigenschaften programmiert werden. Aus dem Grund empfiehlt es sich, die Formular-Eigenschaften als **procedure** zu programmieren. Im folgenden Sourcecode sind die notwendigsten und wichtigsten Eigenschaften eines Formulars kurz aufgeführt:\\ var formStartWidth : Integer; formStartHeight : Integer; formStartPosX : Integer; formStartPosY : Integer; formStart : TForm; ... ... procedure ShowFormStart(); begin //----------------------------------------------------------------- //-- Definition Größe vom Formular und Startposition auf dem RBS -- //----------------------------------------------------------------- formStartWidth := 1200; //Breite des Formulars in Pixel formStartHeight := 964; //Höhe des Formulars in Pixel formStartPosX := 100; //Startposition des Formulars X-Richt. formStartPosY := 100; //Startposition des Formulars Y-Richt. //----------------------------------------------------------------- formStart := TForm.Create(nil); formStart.Caption := 'Reifenauswahl-Dialog'; formStart.BorderStyle := bsDialog; formStart.SetBounds(formStartPosX,formStartPosY,formStartWidth,formStartHeight); //----------------------------------------------------------------- ... ... //----Hier kommen dann später noch die TButton etc. --------------- ... ... end; ... ... //--------Hauptprogramm-------------------------------------------- begin ... ShowFormStart(); ... end. \\ **formStart : TForm;**\\ notwendige Definition **Festlegung von Größe und Startposition bei Aufruf**\\ * formStartWidth := 1200; * formStartHeight := 964; * formStartPosX := 100; * formStartPosY := 100; Das Formular in diesem Beispiel ist 1200 Pixel lang (X-Richtung), 964 Pixel hoch (Y-Richtung) und startet bei Aufruf (bezogen auf die obere linke Ecke) bei 100 Pixel in X-Richtung (nach rechts) und 100 Pixel in Y-Richtung (also nach unten\\ **formStart := TForm.Create(nil);**\\ Notwendige Definiton von **formStart**, damit es dann als Formular dargestellt wird\\ **formStart.Caption := 'Reifenauswahl-Dialog';**\\ Name des Formulars. Wird dann in der oberen Leiste angezeigt. In diesem Fall würde dort dann "Reifenauswahl-Dialog" stehen\\ **formStart.BorderStyle := bsDialog;**\\ Das Formular wird als bsDialog dargestellt. bsDialog bedeutet, es gibt nur ein kleines x in der oberen rechten Ecke zum Schliessen vom Formular. Zusätzlich gibt es noch:\\ * **bsDialog**\\ * Not resizable; no minimize/maximize menu * **bsSingle**\\ * Not resizable; minimize/maximize menu * **bsNone**\\ * Not resizable; no visible border line * **bsSizeable**\\ * Standard resizable border * **bsToolWindow**\\ * like bsSingle but with a smaller caption * **bsSizeToolWin**\\ * like bsSizeable with a smaller caption \\ {{:cockpit-xp:addon:formulare:bseigenschaften.png?nolink|}} \\ **formStart.SetBounds(formStartPosX,formStartPosY,formStartWidth,formStartHeight);**\\ Hiermit wird die Startposition und die Größe des Formulars definiert\\ * **formStartPosX** * Startposition in X-Richtung [in Pixel] * **formStartPosY** * Startposition in Y-Richtung [in Pixel] * **formStartWidth** * Breite vom Formular [in Pixel] * **formStartHeight** * Höhe vom Formular [in Pixel]\\ ==== Aufrufen vom Formular ==== Mit dem Aufruf von **ShowFormStart();** wird dann das Formular einmalig aufgerufen und im RBS angezeigt. \\ ---- [[cockpit-xp:start|Start]] - [[cockpit-xp:faq|FAQ]] - [[cockpit-xp:glossar|Glossar]] - [[cockpit-xp:sitemap|Sitemap]] - [[cockpit-xp:impressum|Impressum]]