Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by guidok,
3. Dez 2007
Hat nicht funktioniert...
edit:
Ich nehms zurück, es funktioniert, aber auch nur zur Laufzeit.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by guidok,
3. Dez 2007
Naja, die Position des Edit steht ja fest, sobald ich es auf dem Formular platziere und das Edit erscheint ja auch an genau dieser Position, insofern steht ja auch zur Laufzeit ein Wert in Left und Top.
Ich glaube das ich mit Resize auch nichts anderes erreiche, als wie schon oben beschrieben, aber ich kann es gern mal probieren.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by guidok,
3. Dez 2007
Ich habe jetzt mal was ergänzt.
procedure TbroseEdit.WMSize(var Message: TWMSize);
begin
fLabel.SetBounds(Left - 100, Top, 100, 17);
inherited;
end;
procedure TbroseEdit.WMMove(var Message: TWMMove);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by guidok,
3. Dez 2007
Ja, das stimmt schon, soweit bin ich aber noch gar nicht. Es ist ja schon beim ersten Platzieren nicht da wo es hin soll.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by guidok,
3. Dez 2007
Hmm, ich komm grad nicht weiter, obwohl es wahrscheinlich nur eine Kleinigkeit ist...
Ziel ist ein Edit mit angehängtem Label (ich weiß, dass gibt es bereits, ich mach es trotzdem selbst).
Ich leite von TCustomEdit ab und erzeuge darin ein Label abgeleitet von TCustomLabel.
TbroseEdit = class(TCustomEdit)
private
fLabel: TbroseEditLabel;