Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Daniel,
16. Jun 2002
Sorry. Es muss jeweils .Components lauten. Das 's' am Ende ist wichtig. :roll:
Grüße,
Daniel
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Daniel,
16. Jun 2002
Alle Labels eines Fensters könntest Du folgendermassen einsammeln:
Procedure ScanLabels( aForm : TForm );
var index : Integer;
Begin
For index:= 0 To aForm.ComponentCount-1 Do
Begin
If (aForm.Component is TLabel) Then
With TLabel(aForm.Component) Do
WriteToFile( aForm.Name+'.'+Name+'.Caption:= '+Caption);