Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Prism Compiler direktiven und visuelle Objekte (TButton) (https://www.delphipraxis.net/161162-compiler-direktiven-und-visuelle-objekte-tbutton.html)

stho 20. Jun 2011 10:20

Compiler direktiven und visuelle Objekte (TButton)
 
Hallo Liebe DP,

ich würde gerne via Compiler direktive einen Button ausblenden...
bisher habe ich das so gemacht:


Delphi-Quellcode:
  TMainForm = class(TForm)
    {$IFDEF ISTEST}
    aButton : TButton
    {$ENDIF}
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

Obwohl sich die direktive "ISTEST" im projekt befindet und der Quellcode auch darauf reagiert,
ist der Button trotz allen Mühen noch immer sichtbar... wie kann ich das ändern oder woran könnte das liegen?

Vielen dank schonmal für eure Hilfe :-)


EDIT:
Okay, mir ist ein Fehler unterlaufen. Der Predix im ThreadTitel soll nicht "Prism" sondern "Delphi" lauten :-(

Bernhard Geyer 20. Jun 2011 10:27

AW: Compiler direktiven und visuelle Objekte (TButton)
 
Wird so nicht gehen das der Button in der DFM trotzdem vorhanden ist und von dort gestreamt wird.

Folgende Lösung würde gehen: im OnCreate folgendes ergänzen:

Delphi-Quellcode:
{$IFNDEF ISTEST}
  aButton.Visible := False;
{$ENDIF}
Den Button ausblenden.

stho 20. Jun 2011 10:32

AW: Compiler direktiven und visuelle Objekte (TButton)
 
wenn es nicht anders geht muss ich es wohl so machen... konnte mir nur nicht erklären warum er den code nicht auskommentiert hat ^^
vielen dank :thumb:

s.h.a.r.k 20. Jun 2011 10:49

AW: Compiler direktiven und visuelle Objekte (TButton)
 
Oder du schreibst dir eine Methode, die den Button komplett via Code erzeugt, die dann via Direktive "ein- bzw. abschaltbar" ist.


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:17 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz