Anchors zur laufzeit entfernen

[Luki206]

Hi, wie kann man Anchors zur Laufzeit entfernen? Ich habe nur etwas gefunden mit setzten aber ich möchte ja den weghaben
Danke
Luki

[CocoPops]

Sicher funktioniert das. Das müsste folgendermaßen funktionieren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 // zum Beispiel, um Anchor akRight des Button1 zu entfernen:

 Button1.Anchors := Button1.Anchors - [akRight];
end;

[Luki206]

Ah ok danke

[himitsu]

Das geht doch genauso, nur dß du dann eben "keinen" Anchor setzt, als [].

PS: Geh auf eine Form, wähle den Anchor aus (zusammenklicken), den du willst und kopier dir den entstandenen Wert raus.

[CocoPops]

Du kannst auch mehrere Anchors gleichzeitig entfernen:
Button1.Anchors := Button1.Anchors - [akRight, akTop];

Und hinzufügen:
Button1.Anchors := Button1.Anchors + [akRight, akTop];

Und alle entfernen
Button1.Anchors := [];

[Luki206]

Hmm... ich habe jetzt einmal den Code getestet aber irgendwie hat es die Anchors nicht entfernt bzw. keine hinzugefügt.. mein Code:

Delphi-Quellcode:

Img.Anchors  := Img.Anchors- [akLeft, akTop];
Img.Anchors := Img.Anchors + [akRight, akBottom];

[CocoPops]

Eventuell musst du "Stretch" des TImage "img" auf True setzen.

[Luki206]

hehe, hatte den Code an die Falsche stelle geschrieben also jetzt läuft es

[Perlsau]

Zitat von Luki206:

Hmm... ich habe jetzt einmal den Code getestet aber irgendwie hat es die Anchors nicht entfernt bzw. keine hinzugefügt.. mein Code:

Delphi-Quellcode:

Img.Anchors  := Img.Anchors- [akLeft, akTop];
Img.Anchors := Img.Anchors + [akRight, akBottom];

Die erste Zuweisung ist unnötig, es genügt das hier:

Img.Anchors := [akRight, akBottom];

[himitsu]

Jupp, da kann ja nur noch das rauskommen.

Und man kann natürlich auch mehr als nur eine Rechenoperation machen: Img.Anchors := Img.Anchors - [akLeft, akTop] + [akRight, akBottom];