Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#5

Re: von TImage abgeleitete Klasse wird nicht angezeigt

  Alt 29. Jun 2008, 10:06
Moin,

zur Entwurfszeit wählst du den Container für dein Control bewusst (oder unbewusst) aus, wodurch die Eigenschaft Parent entsprechend gesetzt wird. Bei zur Laufzeit erstellten Controls musst du nach dem Aufruf des Konstruktors auch noch den Container bestimmen, der dann dein Control auffordern wird sich zu zeichnen. Also mache, was Frank dir geraten hat:

Delphi-Quellcode:
procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  with TMovPic.Create(self) do
  begin
    Width := 120;
    Height := 90;
    Top := 8;
    Left := 8;
    Name := NewComponentName('MovPic', self); // Name := 'MovPic1';
    Parent := SomePanel; // contemplation advised
  end;
end;
Grüße vom marabu
  Mit Zitat antworten Zitat