OI-Einstellung einer Komponente wird nur in Desingmodus geändert

[djmsc]

Ok danke das probiere ich mal.

[djmsc]

Also jetzt funktioniert es
Danke nochmal
Und die OnClick Geschichte werde ich auch noch ändern.

PS: Das Ganze sieht bis jetzt so aus (siehe Anhang) und ich muss noch einiges daran basteln

[djmsc]

Ich habe ein weiteres kleines Problem mit meiner Komponente.

Nach dem ich alles angepasst, kompiliert und die Kompo auf eine Form gezogen habe kam folgende Fehlermeldung

Fehlermeldung

Ich habe herausgefunden, dass es an der Caption vom Button liegt (siehe Code-Schnipsel).

Code:

constructor TKalender.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  FBackButton := TMyButton.Create(self);
  with FBackButton do begin
       Parent := self;
       SetSubComponent(true);
       left := 8;
       top := 8;
       width := 25;
       height := 25;
       //Caption := 'b';         Fehlermeldung wenn aktiv
       visible := true;
       OnClick := BackButtonClick;
  end;

Nur kapiere ich das nicht ganz, warum sich die Caption nicht ändern lässt.

PS: Wenn die Kompo schon auf einer Form ist und ich etwas ändere kommt die Fehlermeldung nicht nur wenn ich sie auf einer leeren Form hinzufüge.

[himitsu]

Liegt zu dem Zeitpunkt die Komponente auf einer sichtbaren Form? (Parent)

SetCaption wird ein Repaint auslösen und dafür muß ein aktiver Canvas zur Verfügung stehen.
Versuche mal den Parent deines Buttons zuletzt zu setzen, bzw. sieh nach was der Setter vom Caption so alles macht.

[djmsc]

Wie ich schon im PS geschrieben habe. Wenn die Kompo bereits auf einer sichtbaren Form liegt und ich Änderungen vornehme gibt es keine Fehlermeldungen. Nur wenn ich die Kompo mit den Änderungen auf eine leere Form ziehe gibt es die Fehlermeldung bei aktivierter Caption.

himitsu schrieb:
Versuche mal den Parent deines Buttons zuletzt zu setzen, bzw. sieh nach was der Setter vom Caption so alles macht.

Werde ich mal testen und nachsehen

[himitsu]

Im Constructor ist die Komponente noch nicht auf der Form.

Parent deines TKalender wird erst nach dem Constructor zugewiesen.

Delphi-Quellcode:

inherited Create(AOwner);
if AOwner is TWinControl then
  Parent := TWinControl(AOwner);

"Normaler Weise" wird/sollte bei Änderungen von Eigenschaften kein Repaint oder Dergleichen ausgelöst werden (von dir), wenn es noch noch nichts zum Zeichnen gibt.
Man kann z.B. auf HandleAllocated prüfen, bevor man auf Handle oder Canvas zugreift oder etwas machen will, was Diese benötigt.