Hallo!
Folgendes Problem: ich habe bspw. folgendes Ereignis:

markieren

Delphi-Quellcode:

procedure TGrundeinstellungen.CbAutorunClick(Sender: TObject);
begin
 if CbAutorun.Checked then
  ShowMessage('Damit VPlan Plus nach einem Windowsstart autom. gestartet werden kann, wird nach Bestätigung ein Eintrag im Schlüssel ''Software\Microsoft\Windows\CurrentVersion\Run'' erstellt.')
 else
  ShowMessage('Registrierungsschlüssel wird nach einem Klick auf ''OK'' entfernt!');
end;

Das Problem ist, dass die jew. Message selbst dann schon eingeblendet wird, sobald das Fenster im Programm geöffnet wird und nicht nur dann, wenn das Kästchen angeklickt wird. Aber komischerweise auch nur wenn die Option 'True' ist, ansonsten nicht.
Hat das schon damit was zutun, dass im OnCreate-Ereignis das Cb.Checked auf 'True' gesetzt wird?!

setzt du das checked-property per quelltext? Das OnClick wird ausgelöst sobald die checked-eigenschaft geändert wird. Also auch wenn dies per Tastendruck oder Programmcode passiert

Wobei ich den Sinn dahinter nicht verstehe, wenn man es per Code setzt, dass OnClick ausgeführt wird.

Zitat von Svenkan:

Hat das schon damit was zutun, dass im OnCreate-Ereignis das Cb.Checked auf 'True' gesetzt wird?!

laß doch einfach mal zum Test das Setzen weg (auskommentieren) ?


Aber um es Kurz zu machen ... ja hat es.

wenn .Checked etwas programmseitig zugewiesen wird, dann wird das OnClick-Ereignis der Checkbox ausgelöst.

[edit] gibt's keine RedBox mehr?

Uff...
Gibt es da irgendwie eine Möglichkeit, das zumgehen?
Ich hatte nicht vor, dem ganzen eine extra 'Start-Variable' zu geben, die danach auf TRUE oder so gesetzt wird und ab dann das ganze erst ausgeführt wird.

Für solche Sachen kann man immer sehr schön den Tag missbrauchen
Du setzt den Tag der CheckBox im OI auf 1 und änderst ihn nach den Änderungen im OnCreate auf 0. Ins CheckBox1.OnClick machst du dann noch:if CheckBox1.Tag = 1 then Exit; Mfg

Als Erstes könnte man versuchen den Aufruf der Event-Funktion zu verhindern:

markieren

Delphi-Quellcode:

procedure NonClickSetChecked(Control: TCheckBox; NewChecked: Boolean);
var
  Temp: TNotifyEvent;
begin
  Temp := Control.OnClick;
  Control.OnClick := nil;
  Control.Checked := NewChecked;
  Control.OnClick := Temp;
end;

und dann z.B. statt CbAutorun.Checked := True; einfach nur NonClickSetChecked(CbAutorun, True); aufrufen.


In deinem Fall könntest du auch einfach nur prüfen ob die Form grad angezeigt wird und wenn dieses nicht der Fall ist, dann führst du den Code nicht aus. (beim Aufruf von OnCreate wäre dieses noch der Fall)

markieren

Code:

procedure TGrundeinstellungen.CbAutorunClick(Sender: TObject);
begin
  [b]if not IsWindowVisible(Handle) then
    exit;[/b]
  if CbAutorun.Checked then
    ShowMessage('Damit VPlan Plus nach einem Windowsstart autom. gestartet ...
  else
    ShowMessage('Registrierungsschlüssel wird nach einem Klick auf ''OK'' entfernt!');
end;