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