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 :thumb:

[himitsu]

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

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:

Delphi-Quellcode:

Button1.Anchors := Button1.Anchors - [akRight, akTop];

Und hinzufügen:

Delphi-Quellcode:

Button1.Anchors := Button1.Anchors + [akRight, akTop];

Und alle entfernen

Delphi-Quellcode:

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 :stupid::mrgreen: also jetzt läuft es

[Perlsau]

Zitat:

Zitat von Luki206 (Beitrag 1253800)

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:

Delphi-Quellcode:

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:

Delphi-Quellcode:

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