|
Registriert seit: 6. Aug 2010
Ort: Dornbirn
151 Beiträge
Delphi 11 Alexandria
|
AW: FireMonkey Sammelthread
9. Jan 2013, 18:17
Ich spiele gerade mal an einem kleinen DataBinding-Framework herum.
Ich kann u.a. schon mit einer Checkbox Edit1.Enabled umschalten.
Das funktioniert "funktional" auch wie erwartet, aber die Controls werden nicht neu gezeichnet bzw. erst wenn ich das Formular minimiere und wieder herstelle.
Ein ausdrückliches Repaint hilft auch nicht weiter.
Delphi-Quellcode:
procedure TssfCtrl.set_PropText(const Value: string);
begin
if Assigned(BindObject) then
begin
SetPropValue(BindObject, PropName, Value);
// if (BindObject is TControl) then
// (BindObject as TControl).Repaint; // hilft nicht
end;
end;
Weiß jemand auf Anhieb, wo es mangelt? Vermutlich muss noch das Formular den Auftrag erhalten, sich neu zu zeichnen.
Invalidate - wie in der VCL - gibt es ja nicht. Wie siehts mit einem .Realign Aufruf der Komponente aus?
Oder verwende mal BeginUpdate/Dein Code/EndUpdate ...
Peter
Was mache ich, wenn ein Bär meine Frau angreift?
Nichts. Er hat sie angegriffen, soll er doch selber sehen, wie er sich verteidigt.
|