Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sir Rufo,
1. Mai 2014
Ich denke jeder "normale" Mensch sollte in der Lage sein eine Antwort wie:
zu formulieren und späteren Lesern würde eine Nachfrage erspart.
Ist das tatsächlich zuviel verlangt? :gruebel:
(Ich lerne gerne dazu)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sir Rufo,
1. Mai 2014
:shock: bitte?
Kannst du bitte mal erklären, wie spätere Leser deine Antwort interpretieren sollen?
Dieses Forum ist nicht nur dafür da Hilfe für die eigenen Probleme zu bekommen, sondern auch hilfreich für Andere zu sein. Wenn dein Problem gelöst wurde, dann sollte für alle Anderen auch klar erkennbar sein, was jetzt die Lösung war.
Scheint allerdings noch nicht überall angekommen zu sein...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sir Rufo,
1. Mai 2014
Was funktioniert jetzt?
Dein Code, mein Code, irgendein Code, ...
Wenn du so programmierst wie du hier antwortest, dann wage ich zu vermuten, dass das größte Problem direkt vor deinem Bildschirm sitzt ;)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sir Rufo,
1. Mai 2014
Weil du dir damit Abhängigkeiten in den Code holst, die dir irgendwann auf die Füße fallen. Benenne deine Form doch mal vernünftig und schon funktioniert nichts mehr.
Ansonsten ist dieses Thema hier schon mehrfach durchgekaut worden und bedarf keiner weiteren Diskussion, da es keine neueren Erkenntnisse geben würde (nur ein schales Echo bereits geführter Diskussionen)
siehe dazu auch...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sir Rufo,
1. Mai 2014
Generell zum Code sei noch folgendes gesagt:
var
aForm: TForm;
begin
aForm := TForm.Create(nil);
aForm.Left := Form1.Left;
aForm.Top := Form1.Top;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sir Rufo,
1. Mai 2014
Das Problem liegt schon irgendwie in dem Code, da es die Verhaltensweise von TForm nicht berücksichtigt.
Dieser Code legt über die übergebene Form eine abgedunkelte Form.
procedure DarkenForm( AForm : TForm );
var
LForm : TForm;
begin
if not Assigned( AForm ) then
raise EArgumentNilException.Create('AForm darf nicht NIL sein!');