AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi ParentFont aller Komponenten eines Forms setzen

ParentFont aller Komponenten eines Forms setzen

Ein Thema von hoika · begonnen am 23. Nov 2011 · letzter Beitrag vom 23. Nov 2011
Antwort Antwort
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
7.715 Beiträge
 
Delphi XE4 Professional
 
#1

ParentFont aller Komponenten eines Forms setzen

  Alt 23. Nov 2011, 07:22
Hallo #,

ich will alle ParentFont aller Komponenten auf False setzen.
Ich gehe wie immer vor (Components[], ComponentCount)
Geht hier nur leider nicht.
ParentFont scheint nicht irgendwo public zu werden, wie z.B. Caption in TControl.

Muss ich jetzt für jedes meiner Komponenten ein eigenes

Delphi-Quellcode:
Component:= Components[i];
if Component is TLabel then
begin
  TLabel(Component).ParentFont:= False;
end;
if Component is TEdit then
begin
  TEdit(Component).ParentFont:= False;
end;


Danke

Heiko
Heiko

Geändert von hoika (23. Nov 2011 um 07:39 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
16.660 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: ParentFont aller Komponenten eines Forms setzen

  Alt 23. Nov 2011, 07:53
Nein, musst du nicht.
Über die Funktionen der RTTI (TypInfo.pas) kannst du das generisch machen.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
7.715 Beiträge
 
Delphi XE4 Professional
 
#3

AW: ParentFont aller Komponenten eines Forms setzen

  Alt 23. Nov 2011, 18:32
Hallo,

RTTI wollte ich ja vermeiden ...
Trotzdem Danke.


Heiko
Heiko
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#4

AW: ParentFont aller Komponenten eines Forms setzen

  Alt 23. Nov 2011, 18:43
einen hätt' ich noch
Delphi-Quellcode:

type

  THackControl = Class(Controls.TControl)
    public
    Property ParentFont;
  End;
...



  if Control is TControl then
    THackControl(Control).ParentFont := wasauchimmer;

end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
16.660 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#5

AW: ParentFont aller Komponenten eines Forms setzen

  Alt 23. Nov 2011, 19:04
RTTI wollte ich ja vermeiden ...
Wieso das? Dein Delphi-programm verwendet es permanent.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:18 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2020 by Daniel R. Wolf