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

checkbox.checked := true schreibt, auch gleich das OnClick-Event der Checkbox ausgelöst wird.

In diesem Thread wurde als Workaround folgendes vorgeschlagen :

SendMessage(checkbox.Handle, BM_SETCHECK, Integer(cbChecked), 0); Das funktioniert auch (die Checkbox ist - optisch zumindest - "checked"), allerdings liefert eine Abfrage auf

if (checkbox.checked) then ... leider ein false zurück

Wer kann mir da weiterhelfen ?

z.B. so (nicht getestet):

markieren

Delphi-Quellcode:

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

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?

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

[edit]:
Ich habe noch was gefunden :

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]

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

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?

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

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

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

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.

Zitat von MarcusB:

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

Und zwar?

Zitat von MarcusB:

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

Das Schieben ist frühestens nach 24 Stunden erlaubt!

......

@Sakura:

Sorry, kommt nicht wieder vor

@Stevie

Warum setzt

  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

markieren

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

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