5、ject); begin if(IsWindowEnabled(Edit1.Handle))then begin EnableWindow(Edit1.Handle,FALSE); Button1.Caption:=‘EnableWindow'; Edit1.Text:=‘Thiswindowisdisabled'; end else begin EnableWindow(Edit1.Handle,TRUE); Button1.Caption:=‘DisableWindow'; Edit1.Text:=‘Thiswindowisenabled'; end;