Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by torud,
3. Jan 2006
Es gibt Momente und Situationen, da würde man am liebsten von der Bildfläche verschwinden. Der Moment als ich Deinen Einwurf las und einen kurzen Blick in meinen Code warf, war ein solcher Moment. Kann mich jemand unsuchtbar machen?
Danke vielmals...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by torud,
3. Jan 2006
So wie Du es verstanden hast und auch verstehen musstest, ja! Aber es ist doch so, dass die Checkbox auf einem Formular liegt und der FormDesigner mir das aktuell selktierte Control eines anderen Formulares zurückgibt, wie Du am Code erkennen kannst.
form2.FormDesigner1.Control as TLabel
Form2 ist das Formular des Labels und das Formular der Checkbox heisst obj_properties. Daran kann es...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by torud,
3. Jan 2006
Also es muss wohl doch an der Komponente liegen, da es ohne sie mit statischem Code wunderbar funktioniert, siehe:
procedure TForm1.chk_boldClick(Sender: TObject);
begin
if chk_bold.Checked then
form1.Label1.Font.Style:=
form1.Label1.Font.Style +
else
form1.Label1.Font.Style:=
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by torud,
3. Jan 2006
FormDesigner ist eine externe Komponente. Deshalb wirst Du nix finden in der Hilfe.
Und ja das Ereignis wir OnClick der Checkbox ausgelöst:
procedure Tobj_properties.chk_lineClick(Sender: TObject);
begin
if chk_bold.Checked then
((form2.FormDesigner1.Control as TLabel).Font.Style:=
(form2.FormDesigner1.Control as TLabel).Font.Style + )
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by torud,
3. Jan 2006
Der FormDesigner gibt mir Control das aktuell selektierte Control zurück. Das funktioniert einwandfrei. Leider haut es mit dem Setzen nicht so richtig hin. Warum weiss ich auch nicht.
Mache ich was falsch?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by torud,
3. Jan 2006
Hallo Wissende!
Ich habe ein Label und 3 Checkboxen zum de-aktivieren von Fett,Unterstrichen und Kursiv.
Folgendes mache ich, wenn zum Beispiel die Checkbox für Fett geklickt wird.
if chk_bold.Checked then
((form2.FormDesigner1.Control as TLabel).Font.Style:=
(form2.FormDesigner1.Control as TLabel).Font.Style + )