Mark, > Something like > > TMyEdit = class(TEdit) > procedure CMEnabledChanged(var Message: TMessage); message > CM_ENABLEDCHANGED; end; > > TMyEdit.CMEnabledChanged(var Message: TMessage); begin > inherited; if Enabled > then Color := clWindow > else Color := clBtnFace; > end;
Thanks, this seems like what I was looking for, will check it out. Alfred __________________________________________________ Delphi-Talk mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi-talk
