Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
6. Nov 2007
Nein nein, soweit richtig (vlt. sollte man, wenn man DisableAlign drinnen lässt, noch Try-finally nutzen ^^) ...
Warum es bei dir nicht geht ... ka :wall:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
6. Nov 2007
Tja ... was soll ich dazu sagen ... kurz um: Doof! ...
(Ich nehme natürlich an, dass "MyRepaint" eine Methode von TfrmMain ist ^^)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
5. Nov 2007
Ganz einfach ^^
Wenn du den Parent eines Controls auf nil setzt und anschließend wieder zuweist, wird das Control aus der Controls-Liste des Parents entfernt und beim zuweisen am Ende der Controls-Liste des Parents wieder gehängt. Das zweite Control rutscht beim entfernen an die erste Stelle - sprich Index 0. Nachdem der Parent auch hier neu gesetzt wurde, rückt das nächste Control nach, usw...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
5. Nov 2007
Echt nicht? Ich hab's probiert, bei mir ging's :shock: :? ...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
2. Nov 2007
Du hast recht :gruebel: ...
procedure TMeineForm.MyRepaint;
var
I: Integer;
begin
DisableAlign;
For I := 0 to ControlCount - 1 do With Controls do
begin
Parent := nil;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
1. Nov 2007
So ungefähr, ya.
Man drücke F1: "TControl.Invalidate Methode - Aktualisiert das Steuerelement auf dem Bildschirm."
Desweiteren zu Repaint: "Andernfalls ruft Repaint zunächst Invalidate und danach Update auf" - dh. das Repaint das Neuzeichnen sofort erzwingt, Invalidate nicht.
Für diesen Fall wäre Invalidate besser. Allerdings würde ich nicht so fix arbeiten wie "Button1.Repaint" sondern...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
1. Nov 2007
Ich meinte ya auch Invalidate oder Repaint aufrufen bei den Buttons, etc ...