Tutorial: Verwenden von TControl.StyleElements in VCL-Anwendungen

Nach oben zu VCL-Tutorials

Das folgende Codebeispiel zeigt die Verwendung der Eigenschaft Vcl.Controls.TControl.StyleElements.

Erstellen einer VCL-Anwendung

Für die Verwendung von Vcl.Controls.TControl.StyleElements müssen Sie eine VCL-Formularanwendung erstellen. Führen Sie dazu die folgenden Schritte aus:

1. Wählen Sie Datei > Neu > VCL-Formularanwendung - Delphi.
2. Doppelklicken Sie zum Öffnen des VCL-Formular-Designers in der Projektverwaltung auf die .pas-Unit, und klicken Sie dann auf das Register Design am unteren Rand des Quelltext-Editors.

Hinzufügen von Komponenten und Anpassen der Einstellungen

Bevor die Anwendung ausgeführt werden kann, müssen Sie Folgendes durchführen:

1. Ziehen Sie eine TButton-Komponente aus der Tool-Palette auf das Formular.
2. Klicken Sie im Formular auf eine beliebige Stelle, und fügen Sie im Objektinspektor auf der Registerkarte Ereignisse eine OnCreate-Ereignisbehandlungsroutine für das Formular hinzu.
3. Doppelklicken Sie auf das TButton-Steuerelement, und fügen Sie eine OnClick-Ereignisbehandlungsroutine für die Schaltfläche hinzu. Um deutlichere Effekte zu erzielen, können Sie im Objektinspektor die Eigenschaft Font erweitern und in Size einen höheren Wert für die Schriftgröße der Schaltfläche angeben.
4. Klicken Sie dann auf das Register Code am unteren Rand des Quelltext-Editors, und fügen Sie in Delphi der uses-Klausel die Units Vcl.Styles und Vcl.Themes hinzu.
5. Wählen Sie Projekt > Optionen > Anwendung > Erscheinungsbild, und aktivieren Sie einen der vorhandenen Stile.

Schreiben des Codes

Fügen Sie der OnCreate-Ereignisbehandlungsroutine den folgenden Code hinzu:

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.StyleElements := []; //All StyleElements are disabled.
Button1.Font.Color := clGreen;
end;

void __fastcall TForm4::FormCreate(TObject *Sender)
{
	Button1->StyleElements = TStyleElements();//All StyleElements are disabled.
	Button1->Font->Color = clGreen;
}

Fügen Sie der Button1Click-Ereignisbehandlungsroutine den folgenden Code hinzu:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.StyleElements := [seClient, seBorder, seFont];
  Button1.Font.Color := clBlue;
end;

void __fastcall TForm4::Button1Click(TObject *Sender)
{
	Button1->StyleElements = TStyleElements(seFont + seClient + seBorder);
	Button1->Font->Color = clBlue;
}

Ausführen der Anwendung

Führen Sie das Projekt aus. Das Hauptfenster des Projekts wird angezeigt. Die Schaltfläche wird mit einem Standardstil angezeigt, der in der Methode TForm1.FormCreate festgelegt ist:

Button1.StyleElements := [];

Nach Klicken auf die Schaltfläche wird die Schriftfarbe nicht in Blau – wie für die Methode Button1Click erforderlich – geändert, weil die aktuelle Stileinstellung nicht überschrieben werden kann.

Dasselbe gilt für die Standardstileinstellungen. Diese können zur Laufzeit nur in der Formularerstellungsmethode überschrieben werden, wenn die Eigenschaft StyleElements der Komponente auf seClient gesetzt ist.

Verwendete Elemente

• Vcl.Controls.TControl.StyleElements
• Vcl.Controls.TStyleElements