===== Bezeichner von Feldern (Label) =====
==== Einleitung ====
Als Bezeichner von Felder (**Label**) versteht man eine Anzeige auf einem Formular. Solche **Label** müssen in Größe, Position und Verhalten einmalig definiert werden. Die Inhalte solcher Label lässt sich jederzeit überschreiben.\\

==== Eigenschaften von Label ====
Jedes **Label** muss einmalig bei den Formular-Eigenschaften einzeln konfiguriert werden. Im folgenden Sourcecode sind die notwendigsten und wichtigsten Eigenschaften von einem Label kurz aufgeführt:\\

<Code:pascal linenums>
var
  LabelPlus : TLabel;
  ...
//----Hier kommen die Einstellungen fürs Label --------------------
//-----------------------------------------------------------------
  LabelPlus           := TLabel.Create(formStart);
  LabelPlus.Name      := 'LabelPlus';
  LabelPlus.Parent    := formStart;
  LabelPlus.Font.Name := 'Frank Goth Cd';
  LabelPlus.Font.Size := -10;
  LabelPlus.SetBounds(320, 34, 80, 15);
  LabelPlus.Caption   := 'Speed: '+inttostr(cpgetintegervar('Speed_Soft'));  
//------------------------------------------------------------------
...
end;
</Code>\\



==== Verhalten von Label ====


==== Beispiel Code mit Erläuterungen ====

<Code:pascal linenums>
var
  LabelPlus : TLabel;
  ...
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 die Einstellungen fürs Label --------------------
//-----------------------------------------------------------------
  LabelPlus           := TLabel.Create(formStart);
  LabelPlus.Name      := 'LabelPlus';
  LabelPlus.Parent    := formStart;
  LabelPlus.Font.Name := 'Frank Goth Cd';
  LabelPlus.Font.Size := -10;
  LabelPlus.SetBounds(320, 34, 80, 15);
  LabelPlus.Caption   := 'Speed: '+inttostr(cpgetintegervar('Speed_Soft'));  
//------------------------------------------------------------------
...
end;
...
...
//--------Hauptprogramm--------------------------------------------
begin
  ...
  ShowFormStart();
  ...
end.

</Code>\\

----

[[cockpit-xp:start|Start]] - [[cockpit-xp:faq|FAQ]] - [[cockpit-xp:glossar|Glossar]] - [[cockpit-xp:sitemap|Sitemap]] - [[cockpit-xp:impressum|Impressum]]