7. Juli 2009 09:38
7. Juli 2009 09:40
7. Juli 2009 09:42
owenw hat geschrieben:RequestOptionsForm.variable.EDITABLE(FALSE);
7. Juli 2009 09:49
Kästchen ShowIntra (CheckBoxIntra):
IF ShowIntra = TRUE THEN BEGIN
RequestOptionsForm.CheckBoxAD.EDITABLE(FALSE);
RequestOptionsForm.CheckBoxEK.EDITABLE(FALSE);
END ELSE BEGIN
RequestOptionsForm.CheckBoxAD.EDITABLE(TRUE);
RequestOptionsForm.CheckBoxEK.EDITABLE(TRUE);
END;
Kästchen ShowAD (CheckBoxAD):
IF ShowAD = TRUE THEN BEGIN
RequestOptionsForm.CheckBoxIntra.EDITABLE(FALSE);
RequestOptionsForm.CheckBoxEK.EDITABLE(FALSE);
END ELSE BEGIN
RequestOptionsForm.CheckBoxIntra.EDITABLE(TRUE);
RequestOptionsForm.CheckBoxEK.EDITABLE(TRUE);
END;
Kästchen ShowEK (CheckBoxEK):
IF ShowEK = TRUE THEN BEGIN
RequestOptionsForm.CheckBoxIntra.EDITABLE(FALSE);
RequestOptionsForm.CheckBoxAD.EDITABLE(FALSE);
END ELSE BEGIN
RequestOptionsForm.CheckBoxIntra.EDITABLE(TRUE);
RequestOptionsForm.CheckBoxAD.EDITABLE(TRUE);
END;
7. Juli 2009 10:21
7. Juli 2009 10:25
7. Juli 2009 10:29
owenw hat geschrieben:IF ShowIntra = TRUE THEN BEGIN
RequestOptionsForm.CheckBoxAD.EDITABLE(FALSE);
RequestOptionsForm.CheckBoxEK.EDITABLE(FALSE);
END ELSE BEGIN
RequestOptionsForm.CheckBoxAD.EDITABLE(TRUE);
RequestOptionsForm.CheckBoxEK.EDITABLE(TRUE);
END;
RequestOptionsForm.CheckBoxAD.EDITABLE:=(Not ShowIntra);
RequestOptionsForm.CheckBoxEK.EDITABLE:=(Not ShowIntra);