Komponente erstellen: Left und Top festlegen?

[Martin K]

Zitat:

Zitat von Hansa

Echt erstaunlich, daß überhaupt ein Antwortversuch kommt. Denn es wurde nicht mal gesagt, von was die Komponente abgeleitet werden soll. 8) Befürchte es ist wieder mal TComponent oder Co. und insofern dann eigentlich für diese Zwecke nicht zu gebrauchen.

Also, hab meine Komponente vom TImage (ExtCtrls) abgeleitet.

Jetzt weiß ich aber nicht, was du mit dem Rest gemeint hast.
Muss ich die Properties Top und Left überschreiben?

[SirThornberry]

Das Problem ist in der Komponente zu unterscheiden ob die Position gerade gesetzt wurde nach dem die Komponente aufs form gezogen wurde oder die Position gesetzt wurde nachdem das Projekt geladen wurde. Denn wenn du über Datei->öffnen das Projekt lädst soll die Komponente dort erscheinen wo sie beim speichern lag und nicht bei 0, 0
Left und Top überschreibt man in dem man "SetBounds" überschreibt.
Wenn du Left oder Top änderst wird nämlich SetBounds aufgerufen
Anstelle von

Delphi-Quellcode:

img.Left := 0; //intern: img.setbounds(0, img.top, img.width, img.height);
img.Top  := 0; //intern: img.setbounds(img.left, 0, img.width, img.height);

sollte man also lieber

Delphi-Quellcode:

img.SetBounds(0, 0, img.width, img.height);

aufrufen weil dabei SetBounds nur einmal aufgerufen wird

[Martin K]

So, hab jetzt mal mit meiner Komponente weiter gemacht.

Hab mal Rudy's Code genommen - und es funzt :thumb:

Damit wäre das Problem dann gelöst :-D

Danke nochmal, für eure Hilfe!

[Martin K]

Hmm...
Hab jetzt mal ein bisschen mit dem Code rumprobiert,
und irgendwie gibt es jetzt beim Beenden immer eine Exception:

Delphi-Quellcode:

procedure TMyCompo.SetParent(AParent: TWinControl);
begin
  inherited;
  SetBounds(AParent.ClientWidth - Width, 0, Width, Height);  // oben rechts
end;

Dieser Code funktioniert, hier gibt es keine Exception:

Delphi-Quellcode:

procedure TMyCompo.SetParent(AParent: TWinControl);
begin
  inherited;
  SetBounds(0, 0, Width, Height);  // oben links
end;

Wie kann ich es aber erreichen, dass meine Komponente oben rechts plaziert wird, ohne dass es beim Beenden zu einer Exception kommt???

[Muetze1]

Prüfe ab, ob AParent Nil ist.

Delphi-Quellcode:

procedure TMyCompo.SetParent(AParent: TWinControl);
begin
  inherited;
  
  If Assigned(AParent) Then
    SetBounds(AParent.ClientWidth - Width, 0, Width, Height);  // oben rechts
end;

[Martin K]

Danke, jetzt funktioniert's :thumb:

Ich verstehe nur nicht, warum es zur Exception beim Beenden kam:
Wann wird denn SetParent aufgerufen?
Eigentlich doch nur beim Createn - aber beim Beenden (also Freigeben) :?:

[SirThornberry]

beim beenden wird der eventuell auf ni gesetzt damit sich beim Parent aus der Liste ausgetragen wird.
Und der Parent wird natürlich auch gesetzt wenn man die Komponente auf ein andere Panel verschiebt.