Enabled funktioniert nicht

[Amalkotey]

Moin,

ich habe bei Delphi 7 enterprise und bei Delphi 10.4.2 festgestellt, dass bei Radiobutton und Checkboxen der Status Enabled setzenkonnte, aber wenn ich mit der Mouse, bei lfd. Programm, auf die form gehe, wird der Status Enabled deaktiviert. Was kann ich Tun?

-Amalkotey-

[himitsu]

Da das eigentlich nicht so ist und sich der Status eigentlich nicht einfach so ändern kann,

mußt DU wohl irgendwo einen Fehler machen.



Entweder in TControl.SetEnabled oder TControl.CMEnabledChanged einen Haltepunkt (DebugDCUs aktiv)
oder auf CM_ENABLEDCHANGED reagieren und dann im Stacktrace schauen, von wo aus das aufgerufen wurde.

[Amalkotey]

@himitsu: Ich habe es gerade getestet unter Windows7. Da geschieht der Effekt nicht.Somit kann ich nicht von einem Programmierfehler ausgehen. Der wäre auch unter windows7. Komisch ist, dass das auch bei der 10.4.2 Version auftritt.

Nachtrag:

Ich habe es gerade mit Lazarus unter Windows 10 21H1 getestet. Da geschieht der Efekt ebenfalls. Ich gehe von einer Macke bi Windows10 aus.

[Moombas]

Schon mal probiert ein neues Projekt ohne irgendeine Programmierung, nur mit dem Control zu starten und zu schauen?
Ich denke nicht das dies eine OS-Macke ist, denn sonst hätten ganz viele schon aufgeschrien!

Schau mal ob du ein Mouseover-Ereignis bei dir drin hast, das das ggf. auslöst.

[Amalkotey]

@Moombas:

Ja habe ich. Eine MainForm, zwe Radiobuttons und eine Checkbox auf die Form abgelegt. Im Objektinsprektor jeweils Enable auf False gesetzt und dann gestartet. Sobald ich mit der Maus auf die Form gehe, ist der Status Enabled abgeschalt und ich kann switchen zwichen den Radiobutton.

[Rolf Frei]

Ich habe nun genau das in 10.4.2 gemacht:
1. Neues VCL Project
2. 2x TRadioButton und 1x TCheckBox auf die Form gelegt.
3. Bei allen das Enabled auf False gestellt.
4. Kompiliert und gestartet.

Dein Effekt tritt hier nicht auf. Die Elemente sind wie erwartet disabled und können nicht bedient werden.

Kompiliere mal deine Anwendung mit den Debug DCU's und platziere dann beim Enablen von TRadioButton und TCheckbox einen Breakpoint. Schau dir dann den Stacktrace an. So solltest du eigentlcih sehen können, was da bei dir reinfummelt.

[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.