TCheckbox-Ereignes: Anhaken

[rebugger]

Hallo,
leider gibt es bei der TCheckbox kein onCheck oder onChange.
Wie kann ich trotzdem abfangen, wann es anhakt wird (es soll dann angehakt werden und eine von mir bestimmte procedure abgelaufen werden)

[sakura]

Im OnClick Event kannst Du das abfangen

Delphi-Quellcode:

procedure TForm1.CheckBox1OnClick(Sender: TObject);
begin
  if Sender is TCheckBox then
    if TCheckBox(Sender).Checked then
    begin
      // checked
    end else begin
      // not checked
    end;
end;

[Christian Seehase]

Moin Rebugger,

gehört zu dem, was Du da dann machen willst auch das setzen der Eigenschaft Checked?

[rebugger]

Zitat von Christian Seehase:

Moin Rebugger,

gehört zu dem, was Du da dann machen willst auch das setzen der Eigenschaft Checked?

Ne, gehört es nicht !

Hab leider noch ein Anderes Problem:

Delphi-Quellcode:

function SaveSyntax(): String;
var
  tmp_string: String;
begin
  tmp_string := ColorToString(ColorVordergrund.Color) + ',' +
                ColorToString(ColorHintergrund.Color) + ',';

  if StilFett.Checked = TRUE then
    tmp_string := tmp_string + '1,'
  else
    tmp_string := tmp_string + '0,';
  if StilKursiv.Checked = TRUE then
    tmp_string := tmp_string + '1,'
  else
    tmp_string := tmp_string + '0,';
  if StilUnterstrichen.Checked = TRUE then
    tmp_string := tmp_string + '1,'
  else
    tmp_string := tmp_string + '0,';
  if StilDurchgestrichen.Checked = TRUE then
    tmp_string := tmp_string + '1'
  else
    tmp_string := tmp_string + '0';

  MessageDlg(tmp_string, mtInformation, [mbok],0);
  result := tmp_string;
end;

Er sagt mir dauernd:
[Fehler] properties_unit.pas(238): Undefinierter Bezeichner: 'ColorVordergrund'
[Fehler] properties_unit.pas(238): ')' erwartet, aber Bezeichner 'Color' gefunden

[sakura]

Wo definierst Du die Eigenschaft/das Objekt ColorVordergrund - Delphi kennt es an der Stelle (Zeile 238) nicht.

[rebugger]

Naja, ich habe eine Komponente in demselben Fenster namens "ColorVordergrund" !
Die anderen Funktionen und Prozeduren können darauf zugreifen.

[sakura]

Deine Funktion ist scheinbar nicht teil der Fensterklasse (zb. TForm1)

Delphi-Quellcode:

function SaveSyntax(): String;

[color=#ff0008]versus[/color]

function [color=#ff0019]TForm1.[/color]SaveSyntax(): String;

[rebugger]

ups, richtig !
thx !

[Sebastian Nintemann]

Hallo!

Schreib doch mal Form1.ColorVordergrund.
Wahrscheinloch behebt das dein Problem schon.

Gruß, Sebastian

[edit] Mist zu spät. Wenn ich meine Erkältung los bin werd ich wieder schneller sein [/edit]