Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Olli73,
16. Mai 2017
Das war eigentlich nur ein Test. Sollte auch mit TCustomPanel gehen ?!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Olli73,
16. Mai 2017
Schau mal ob deine Komponente auf Enabled := True steht!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Olli73,
15. Mai 2017
Ich habe deine Komponente einfach dynamisch/selbst erzeugt und es funktioniert bei mir:
procedure TForm1.Button1Click(Sender: TObject);
begin
With TCustomDateEdit.Create(self) do begin
Parent := Self;
end;
end;
Ich habe aber keine echte Komponente draus gemacht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Olli73,
15. Mai 2017
Funktioniert es bei dir auch, wenn du die Komponente dynamisch erstellst?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Olli73,
15. Mai 2017
Habe mal deine Komponente dynamisch erstellt. Damit funktioniert folgender Code:
constructor TCustomDateEdit.Create(AOwner: TComponent);
var x: Integer;
begin
inherited Create(AOwner);
Color:= clBtnFace;
BevelOuter:= bvNone;
Height:= 25;
Constraints.MaxWidth:= Width;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Olli73,
15. Mai 2017
Hast du nur SetSubComponent(True) oder FEdit.SetSubComponent(True) aufgerufen?
Letzteres wäre richtig.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Olli73,
15. Mai 2017
Allgemein: Du solltest anstatt FEdit:= TEdit.Create(AOwner); FEdit:= TEdit.Create(self); aufrufen und zusätzlich SetSubComponent(True) aufrufen.
Zu 1: Da wird wohl irgendwo beim setzen des Namens der Komponente die Caption (wenn zuvor leer oder gleich Name) gleich dem Namen gesetzt. Versuch mal ShowCaption := False;