Enabled funktioniert nicht

[Incocnito]

Sonst bau doch ein kleines Beispielprojekt mit welchem du das nachstellen kannst und poste das hier. 😉

[Amalkotey]

an meinen Quelcode kann es nicht liegen, da ich ein neues Projekt angelegt habe und zwei radiobuttons und eine checkbox auf das Formular gelegt habe. Enabled auf False gessetzt, gestartet. Gleiches Resultat. Enabled-Status wurde aufgehoben.

Leer SSD genommen, windows 10 pro installiert, Delphi7 und Delphi10 installiert. Neues projekt eratellt. Resultat Enabled bleibt. Also lieg es an der Windows installation-.

[Uwe Raabe]

Zitat von Amalkotey:

an meinen Quelcode kann es nicht liegen

Fällt das nicht unter die Rubrik Das sollte ein Entwickler niemals sagen ?

Ich zitiere da mal meine Vorredner (emphasizes by me):

Zitat von Incocnito:

Sonst bau doch ein kleines Beispielprojekt mit welchem du das nachstellen kannst und poste das hier.

[Amalkotey]

Delphi 7 gestartet und das Project genommen, welches angezeigt wird.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    rb1: TRadioButton;
    rb2: TRadioButton;
    chk1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure chk1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  chk1.Checked := True;
  rb1.Enabled := False;
  rb2.Enabled := False;
end;

procedure TForm1.chk1Click(Sender: TObject);
begin
  if chk1.Checked = True then
    rb2.Enabled := False
  else
    rb2.Enabled := False;
end;

end.

wenn das Prog gestartet wird, wird der Status von rb1.Enabled und rb2.Enabled auf False. Bei der Checkboy wird der Haken gesetzt. Dies geschieht in FormShow. Gehe ich mit der Maus ins Fenster verändert Sie der Status, d. h., die Rabiobuttons sind anwhlbar.

[himitsu]

Zitat:

Delphi-Quellcode:

//if chk1.Checked = True then
  rb2.Enabled := False
//else
  rb2.Enabled := False;

Ähhhhhhh?

Fällt wem in diesem Quote was auf? (da wo nichts auskommentiert wurde)

Zitat:

if ABoolean = True then

Sowas macht man auch nicht!

Diese Konstanten am Besten immer nur ausschließlich für Zuweisungen verwenden ... niemals für Vergleiche.

Delphi-Quellcode:

if chk1.Checked then
  rb2.Enabled := True
else
  rb2.Enabled := False;

// oder

if not chk1.Checked then
  rb2.Enabled := False
else
  rb2.Enabled := True;

Außerdem: Warum will man überhaupt sowas machen, wenn doch ...?

Delphi-Quellcode:

rb2.Enabled := chk1.Checked;

// oder andersrum

rb2.Enabled := not chk1.Checked;

[Amalkotey]

Ok, hast recht. Geht aber an dem Problem vor bei. Sobald die Maus auf der Form ist, werden die Radiobuttons dargestellt und sind anwählbar.

[jaenicke]

Häng doch einfach mal das komplette Testprojekt inkl. Exe gezippt hier an. Dann lässt sich ganz einfach feststellen, ob es an dem Projekt, dem Kompilat (Virus?) oder (wenn es bei anderen geht) wirklich an deinem System liegt (was ich komisch fände).