Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Delphi.Narium,
18. Jul 2021
Das Problem hierbei ist einfach nur die Benutzung von With. Wenn man Pech hat und sich ein bisserl verschreibt, kommt ggfls. trotzdem kompilierbarer Code heraus und bei der Fehlersuche wird es dann ggfls. sehr haarig.with fLabel do
begin
left := self.left;
top := self.top;
focusControl := self;
parent := self.parent;
Caption := self.Caption;
end;
Ist erstmal soweit ok.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Delphi.Narium,
16. Jul 2021
Noch ein Versuch:constructor TMsDatumCombo.create(aOwner: TComponent);
begin
inherited create(aOwner);
fShowLabel := true;
fCaption := '';
fLabel := TLabel.create(self);
fLabel.Parent := Self;
fLabel.left := left;
fLabel.top := top;
fLabel.focusControl := self;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Delphi.Narium,
16. Jul 2021
Eventuell so?
constructor TMsDatumCombo.create(aOwner: TComponent);
begin
inherited create(aOwner);
fShowLabel := true;
fCaption := '';
fLabel := TLabel.create(self);
fLabel.Parent := Self;
fLabel.left := left;
fLabel.top := top;