Problem mit checkbox.checked := true

[MarcusB]

Wie in einem älteren Thread beschrieben habe auch ich ein Problem, dass wenn man

Delphi-Quellcode:

checkbox.checked := true

schreibt, auch gleich das OnClick-Event der Checkbox ausgelöst wird.

In diesem Thread wurde als Workaround folgendes vorgeschlagen :

Delphi-Quellcode:

SendMessage(checkbox.Handle, BM_SETCHECK, Integer(cbChecked), 0);

Das funktioniert auch (die Checkbox ist - optisch zumindest - "checked"), allerdings liefert eine Abfrage auf

Delphi-Quellcode:

if (checkbox.checked) then ...

leider ein false zurück :gruebel:

Wer kann mir da weiterhelfen ?

[scp]

z.B. so (nicht getestet):

Delphi-Quellcode:

var
  SavedOnClick: TNotifyEvent;
begin
  SavedOnClick := checkbox1.OnClick;
  checkbox1.OnClick := nil;
  checkbox1.checked := true;
  checkbox1.OnClick := SavedOnClick;
end;

[MarcusB]

So, war mir leider gestern schon ein bischen spät um das auszuprobieren, aber ganz ehrlich gesagt kapiere ich deinen Ansatz nicht.
Was passiert da eigentlich?

Und warum ist das eigentlich so, das das OnClick-Event sofort mit aufgerufen wird? :gruebel:

Wäre schön wenn mich da jemand aufklären könnte :-D

[edit]:
Ich habe noch was gefunden :

Delphi-Quellcode:

checkbox.Perform(BM_SETCHECK, 1, 0);

Das funktioniert auch, aber auch nur für die Optik!
Wer kann mir in dem Zusammenhang mal die Parameter LParam und WParam bei Messages erklären?
[/edit]

[MarcusB]

Ich schieb mich mal :zwinker:
Weiss denn keiner was, bin schon etwas verzweifelt :wall:

[Stevie]

Zitat:

Zitat von MarcusB

So, war mir leider gestern schon ein bischen spät um das auszuprobieren, aber ganz ehrlich gesagt kapiere ich deinen Ansatz nicht.
Was passiert da eigentlich?

Und warum ist das eigentlich so, das das OnClick-Event sofort mit aufgerufen wird? :gruebel:

Wäre schön wenn mich da jemand aufklären könnte :-D

Das ist so, weil die SetState-Methode der CheckBox die ererbte Methode Click vom TButtonControl aufruft. Die Methode ruft - wenn gesetzt - die Ereignisbehandlungsmethode OnClick auf. Deshalb der Ansatz von scp, die OnClick temporär zu umgehen, indem er sie auf nil setzt, den Checked-Status ändert und sie dann wieder setzt...

[MarcusB]

Ok, danke, wobei mir da immer noch ein paar Fragen offen bleiben :gruebel:

Ich habe mein Problem jetzt so gelöst, dass ich eine einfache boolsche Variable benutze, die in den betreffenden
OnClick-Routinen auf Wahrheit geprüft wird. Diese setzte ich nun einfach auf false, solange ich intern den Checkbox Status
ändern will.

:-D

[Stevie]

Zitat:

Zitat von MarcusB

Ok, danke, wobei mir da immer noch ein paar Fragen offen bleiben :gruebel:

Und zwar?

[sakura]

Zitat:

Zitat von MarcusB

Ich schieb mich mal :zwinker:
Weiss denn keiner was, bin schon etwas verzweifelt :wall:

:warn: Das Schieben ist frühestens nach 24 Stunden erlaubt!

...:cat:...

[MarcusB]

@Sakura:

Sorry, kommt nicht wieder vor :duck:

@Stevie

Warum setzt

Delphi-Quellcode:

  checkbox.Perform(BM_SETCHECK, 1, 0);

zwar den Haken in die Checkbox, aber die Property "Checked" ist immer noch false?

Und bei der Lösung von scp

Delphi-Quellcode:

  checkbox1.OnClick := nil;
  checkbox1.checked := true;

verstehe ich nicht, dass nach OnClick := nil doch wieder checked:=true aufgerufen wird, was doch eigentlich wieder OnClick auslöst :drunken:

[dizzy]

Warum das Perform die Eigenschaft nicht setzt weiss ich nicht, aber es scheint Tatsache zu sein :)

Bei der anderen Variante:
Du merkst dir den Pointer auf die Prozedur die OnClick eigentlich ausgeführt werden soll in einer Variablen, und setzt aber OnClick selber auf NIL. Das heisst, dass OnClick jetzt einfach nichts mehr passiert. Dann setzt du ganz in Ruhe die Eigenschaft neu -> OnClick wird zwar gesendet, aber es steht ja keine Prozedur mehr dahinter. Wenn du dann mit der Eigenschaft fertig bist übergibst du an OnClick wieder die vorher gesicherte Prozedur, und OnClick passiert wieder was.

gruss,
dizzy

[Stevie]

Zitat:

Zitat von MarcusB

Warum setzt

Delphi-Quellcode:

  checkbox.Perform(BM_SETCHECK, 1, 0);

zwar den Haken in die Checkbox, aber die Property "Checked" ist immer noch false?

Und bei der Lösung von scp

Delphi-Quellcode:

  checkbox1.OnClick := nil;
  checkbox1.checked := true;

verstehe ich nicht, dass nach OnClick := nil doch wieder checked:=true aufgerufen wird, was doch eigentlich wieder OnClick auslöst :drunken:

1. Dieser Befehl ist aus der Windows-API und dort hat eine Checkbox kein Checked-Property, wie in Delphi (also schon eins, ob die Box angehakt ist oder nicht, aber der Bool-Wert Checked in TCheckBox ist quasi zusätzlich) Das heißt, eine Änderung über die Win-API hat keine Änderung des Checked-Status einer TCheckBox zufolge andersrum aber schon (Check auf true setzen zeichnet die Box neu)

2. Intern wird die Funktion Click aufgerufen und die macht folgenden Befehl (vereinfacht):

Delphi-Quellcode:

if Assigned(FOnClick) then
  FOnClick(Self);

Das heißt, wenn OnClick (ist ja nur ein Methodenzeiger) nicht gesetzt ist (was ja mit dem := nil bewerkstelligt wurde), dann wird die Funktion auch nicht aufgerufen, wenn du Checked setzt.

[MarcusB]

Wow, danke, ich glaube nun wird Licht im Kopf :idea:

:thumb: Wieder was gelernt, danke für Eure Mühe :)

[Nothine]

da du den checked-status über die windows-message togglest, kannst du auch die abfrage über winapi-funktionen machen...
mithilfe von

Delphi-Quellcode:

CheckBox1.Perform(BM_GETCHECK,0,0)

bekommst du (bei einer normalen delphi-checkbox) entweder BST_CHECKED oder BST_UNCHECKED als ergebnis zurück, bedeutung dürfte klar sein, dann machst du halt statt

Delphi-Quellcode:

if CheckBox1.Checked then

ein

Delphi-Quellcode:

if CheckBox1.Perform(BM_GETCHECK,0,0) = BST_CHECKED then

und schon is das problem gelöst :roll: