Ein TBitBtn ist ein TButtom mit einem Bild als „Schaltfläche“. Die Größe, Position und das Bild der Schaltfläche muss im Vorfeld konfiguriert werden. Folgendes Bild zeigt ein Formular mit verschiedenen TBitBtn, TButton und Labels:

BILD folgt

Jeder TBitBtn muss einmalig einzeln konfiguriert werden. Im folgenden Sourcecode sind die notwendigsten und wichtigsten Eigenschaften kurz aufgeführt:

var
  btnPlus : TBitBtn;
  ...
  ...
begin
  ...
  bitbtnPlus           := TBitBtn.Create(formStart);
  bitbtnPlus.Name      := 'Plus';
  bitbtnPlus.Parent    := formStart;
  bitbtnPlus.Font.Name := 'Frank Goth Cd';
  bitbtnPlus.Font.Size := -10;
  bitbtnPlus.SetBounds(410, 34, 120, 120);
  bitbtnPlus.Hint      := '+1';
  bitbtnPlus.ShowHint  := true;
  bitbtnPlus.Visible   := true;
  bitbtnPlus.Glyph.loadFromFile(cpGetPackagePath()+'\Reifen_Soft-108x108.bmp');
  ...
end.

bitbtnPlus : TBitBtn;
notwendige Zuordnung von btnPlus

bitbtnPlus := TBitBtn.Create(formStart);
hier wird ein TBitBtn mit Name btnPlus auf dem Formular formStart generiert

bitbtnPlus.Name := 'Plus';
der btnPlus heißt auf diesem Formular dann Plus

bitbtnPlus.Parent := formStart;
hiermit wird der TButton btnPlus mit dem Formular formStart verknüpft

bitbtnPlus.Font.Name := 'Frank Goth Cd';
hier definiert man die Schriftart

bitbtnPlus.Font.Size := -10;
hier wird die Schriftgröße festgelegt

bitbtnPlus.SetBounds(410, 34, 120, 120);
hiermit definiert man die Startposition auf dem Formular und die Größe vom TButton:

• 410 ist die X-Position in Pixel gemessen von oben links vom Formular
• 34 ist die Y-Position in Pixel gemessen von oben links vom Formular
• 120 ist die Größe in Pixel vom Button in X-Richtung
• 120 ist die Größe in Pixel vom Button in Y-Richtung
  

bitbtnPlus.Hint := '+1';
bewegt man später den Mauszeiger auf den Button, dann wird dieser Eintrag angezeigt

bitbtnPlus.ShowHint := true;
hier kann man ein\ausschalten ob der oben beschrieben Hint angezeigt werden soll

bitbtnPlus.visible := true;
hiermit lässt sich die Sichtbarkeit des Buttons auf dem Formular ein\ausschalten

btnPlus.Glyph.loadFromFile(cpGetPackagePath()+'\Reifen_Soft-108×108.bmp');
hier wird das gewünschte Bild auf den Button „geladen“. Das Bildformat muss BMP sein. Das Bild muss im AddOn-Verzeichnis liegen. Die Größe vom Bild muss an die Größe vom TBitBtn angepasst sein.

Ein erzeugter TBitBtn läßt sich mit der Maus anklicken. Was dann geschehen soll, muss in einer weiteren procedure nähers beschrieben werden. Als Erstes muss man allerdings in den Formular-Eigenschaften das „Klick“-Verhalten beschreiben und einer procedure zuordnen. Im folgenden Beispiel gibt es einen TBitBtn mit Namen bitbtnPlus. Wird der TBitbtn bitbtnPlus geklickt, dann wird gemäß dieser Zuordnung die procedure bitbtnPlusClick ausgeführt:

//------------------------------------------------------------------
  bitbtnPlus.OnClick:= @bitbtnPlusClick;
//------------------------------------------------------------------ 

//------------------------------------------------------------------
procedure bitbtnPlusClick(Sender: TBitbtn);
begin
  Speed :=cpgetintegervar('Speed_Soft');
  Speed := Speed+1;
  cpsetintegervar('Speed_Soft',Speed);
end;
//------------------------------------------------------------------

Was in dieser procedure dann ausgeführt werden soll, kann individuell programmiert werden. Da gibt es keine Einschränkungen. In diesem Fall wird der Inhalt der Variablen Speed_Soft ausgelesen, um +1 erhöht und wieder abgespeichert.

Start - FAQ - Glossar - Sitemap - Impressum