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.

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:

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;

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.

Start - FAQ - Glossar - Sitemap - Impressum