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);